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1.0 INTRODUCTION 

THE M8053 AND M8064 ARE SINGLE -LINE SYNCHRONOUS, MICRO 
PROCESSOR BASED COMMUNICATIONS INTERFACES WHICH CAN SUPPORT 
BOTH CHARACTER-ORIENTED (DDCMP, BSC. ETC.) AND BIT-ORIENTED 
CSDLC, HOLC, ETC) PROTOCOLS. THE PURPOSE OF THIS PROGRAM IS 
TO PERFORM STATIC DIAGNOSTIC TFSTING OF THE VIA, FIFO, 
USYRT (BCP/BOP MOOES), ANO LINE DRIVERS ON THESE BOARDS. 
NOTE THAT ALL EXTERNAL LOOPBACK (XLB) TESTS ARE CONTAINED 
HERE. THE FOLLOWING FUNCTIONS WILL BE PERFORMED: MODEM 
LOOPBACK ANO ASSORTED EXTERNAL LOOPBACK TESTS C INCLUDING 
BCP:CRC~16/00D VRC/EVEN VRC j BOP:CRC-CCITT- 1' S/0 1 S ). 

THE STATIC LOGIC TESTS WILL PROVIDE EXTENSIVE 
TROUBLESHOOTING CAPABILITIES, SUCH AS TIGHT SCOPE LOOPS. 
SWITCH OPTIONS, ANO ABILITY TO "LOCK" ONTO INTERMITTENT 
ERRORS. IN ADDITION TESTS ARE DESIGNED ANO STRUCTURED 
TO ACHIEVE MAXIMUM FAULT RESOLUTION ANO FACILITATE 
REPLACEMENT OF THE SMALLEST FIELD REPLACEABLE UNIT. 

THIS PROGRAM IS IMPLEMENTED USING THE DIAGNOSTIC SlPERVlSOR 
ANO A STRUCTURED PROGRAMMING APPROACH. BECAUSE THE DESIGN 
CONFORMS TO THE SUPERVISOR (STANDALONE VERSION) THE PROGRAM 
IS COMPATIBLE WITH ACT, APT, XXDPt, AND SLIDE. 

THROUGH DIALOGUE WITH THE OPERATOR, THE PROGRAM ALLOWS 
.iOOlFICATION OF DEVICE PARAMETERS, SUCH AS LSI -BUS ADDRESS. 
VECTOR ADDRESSES ANO DEVICE PRIORITY. IN ADDITION, THE 
OPERATOR CAN SPECIFY PARTICULAR TESTS TO BE RUN AND A 
VARIETY OF LOOPING, RUNNING, ANO REPORTING MODES. 

DEVICE ERRORS WILL BE REPORTED AS THE t OCCUR. THE REPORT 

WILL INCLUDE A TEST NUMBER AMD DESCRIPTION OF THE ERROR. 

GOOO ANO BAD TEST DATA, AND APPLICABLE DEVICE REGISTER 
CONTENTS. 

2.0 HARDWARE REQUIREMENTS 

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE M8053/8064 STATIC 
LOGIC TESTS: 

SBC 11/21* 

16K WORDS OF ME HOP i 

CONSOLE TERMINAL 

M8053 OR M8064 COMMUNICA T IONS INTFRFACE 

THE FOLt OWING HARDWARE IS REQUIRED TO FULLY TEST THE DMV-U LINE 

DRIVERS: 

H32S4, H5255 LOOPBACK CONNECTORS 



i.a PRELIMINARY PRUURAM REQUIREMENTS 
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4,0 GENERAL PROGRAM CONSIDERATIONS 



4.1 DIAGNOSTIC SUPERVISOR 

THIS PROGRAM IS COMPATIBLE WITH THE STANDALONE DIAGNOSTIC 
SUPERVISOR, AND MUST BE LOADED TO BE CORESIDENT WITH THE 
SUPERVISOR, OR BE PREVIOUSLY COMBINED WITH THE SUPERVISOR 
AND LOADED A3 A SINGLE FILE. IN EITHER CASE, THE COMBINED 
PROGRAM WILL NOT EXCEED L6K OP MEMORY. 

4.2 EXECUTION TIME 

THE MAXIMUM TIME REQUIRED TO RUN THIS PROGRAM IS /«30UT IS 
SECONOS PER PASS FOR EACH UNIT. 

4.3 XXDP. 

THIS PROGRAM MAY BE LOADED UNDER XXDP*. AND MAY BE RUN IN 
DUMP MODE OR CHAIN MODE. 



4.4 ACT/SLIDE 

THIS PROGRAM MAY BE LOADED UNDER ACT OR SLIDE AND MAY BE RUN 
IN DUMP MODE OR C'*<UN MODE, 

4.5 APT 

THIS PROGRAM MAY BE LOADED B^ THE API Si STEM (INCLUDING 
APT-RD) f.ND RUN IN PROGRAM MODE OR SCRIPT MODE. 

4.6 MEMORY MANAGEMENT 

MEMORY MANAGEMENT IS NOT UTILIZED IN THIS PROGRAM, 

4.7 FRROR LOGGING 

AT THE END OF EACH PASS ON ALL UNITS, THE PROGRAM PRINTS OUT 
THE CUMU-ATIVE TQTAI NUMBER OF ERRORS SINCE THE LAST START OR 
RESTART COMMAND. 

*'».0 PROGRAM LOAD Mf.DIA 

this program can fjt i uadl from paper t api using the 
absolute loader or from act, si ide, or apt systems, or f~rom 
ant media supported by xxdp*. when using the. paper tape 

ABSOl UTt l.OAOER, THE PROGRAM SHOUl D BE LOADED FIRST, 
F 01 LOWED BY THE DIAGNOSTIC SUPERVISOR. WHEN USING axDP*. THfc 
DIAGNOSTIC SUPERVISOR SHOULD BE LOADED FIRST, FOLLUWdD BY 
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THE DIAGNOSTIC PROGRAM, 



6.0 OPERATING INSTRUCTIONS 



6.1 LOADING AND STARTING PROCEDURES 



6.1.1 LOADING PROCEDURES 

THIS PROGRAM MAT Bt LOADED FROM PAPER TAPE USING THE 
ABSOLUTE LOADER. IT MAY ALSO BE LOADED FROM ANY XXDP* LOAD 
MEDIA. WHEN LOADED UNDER XXDP*. THE DIAGNOSTIC SUPERVISOR 
WILL BE LUADED AUTOMATICALLY , 



SEQ 0007 



6,1.0 STARTING PROCEDURES 

THE PROGRAM STARTS AT LOCATION 
PROCEDURES TO STA.3T THE PROGRAM, 



000. USE STANDARD DEC 



6,1.3 STEPS FOR QUICK ANO SIMP'.E EXECUTION 

THE DIAGNOSTIC CAN BE EXECUTED STANDALONE UNOER XXDP*. 
WITHOUT READING THE REMAINDER OF THIS DOCUMENT, AS FOLLOWS: 

A) LOAO ANO START DIAGNOSTIC USING RUN COMMANO 

B) RECEIVE DIAGNOSTIC SUPERVISOR IDENTIFICATION AND PROMPT (DRS-C>) 

C) ENTER STA<CR» 

D) ANSWER HARDWARE AND SOFTWARE QUESTIONS 

F.) GET ENO OF PASS MESSAGES OR ERROR MESSAGES 
F) TO END EXECUTION, ENTER CONTROL/C 

6.0 INITIAL DIALOGUE 

AF TEFI THE PROGRAM ANO T Hfc SUPERVISOR ARE t OADc D AND THE PROGRAM 
IS STARTED, THE FOLLOWING IDENTIFICATION IS TYPED : 

DPS LOADED 

DIAG. RUN TIME. SERVICE 5 

CNOMf A 

DMv -11 LlNfc UNIT Tfc > T ':, 

UNIT IS M8055 OR M8064 

DR> 



PART 3 OF 3 



ThE CPFRATOP THEN PROCUDS B» t»PINi> UNI OR MORE 0» THE 
COMMANDS DESCRIBED IN THi FQU QUINCi SECTION 6,3. (FOR MORE 
DFTAHED INFORMATION, ROfR TO THE DIAGNOSTIC SUPERVISOR 
JUNCTIONAL SPECIFICATION). 



£u3 PROGRAM OPTIONS 
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SEQ 0008 



6.3.1 START COMMAND 

ST A(RT)/TESTS:< TEST -LIST > /PASS ;<PASS-CNT>/ r LAGS: 
<f LAG LIST > 'hC'2:<INCR> 

4^***4^4^******* ************* 1**************************4*4 

6.3.1.1 TESTS SWITCH ( /TESTS j < TEST LIST > ) 

<TEST LIST> IS A SEQUENCE Of DECIMAL NUMBERS (1:2 ETC.) OR 
RANGES Of DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE 
TESTS TO BE EXECUTED. THE NUMBERS ARE SEPARATED BY COLONS. 
THE NUMBERS RANGE FROM 1 TO THE LARGEST TEST NUMBER IN THE 
DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY ORDER. TESTS WILL 
BE EXECUTFD IN NUMERICAL ORDER REGARDLESS OF THE ORDER OF 
SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. ON 
THIS ANO ALL SWITCHES, THE ANGLE BRACKETS <> ARE PUNCTUATION 
USED IN THE DEFINI T ION ONLY, ANO ARE NOT TO BE TYPED BY THE 
OPERATOR. SEE EXAMPLE AT ENO OF 6.3.1.5. 

6.3.1.2 PASS SWITCH ( /PASS : <PASS CNT > ) 

<PASS-CNT> IS A DECIMAL NUMBER INDICATING THE DESIRED NLT1BER 
OF PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL 
DIAGNOSTIC (ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED, 
THE DEFAULT IS NON-ENDING EXECUTION. IN THIS CASE EXIT FROM 
THE PROGRAM IS ACCOMPLISHED EITHER BY TYPING A CONTROL /C OR 
BY OCCURANCE OF AN ERROR WITH THE HALT ON ERROR FLAG BEING 
SET. THE EXIT IS A RETURN TO COMMAND MODE. SEL EXAMPLE AT 
ENO OF 6.3.1.5. 

6.3.1.3 FLAGS SWITCH ( /FLAGS ; <FLAG LIST*) 

<FLAG LIST> IS A SEQUENCE OF ELEMENTS OF THE FORM <FLAG>, 
<FLAG-1>, OR <FLAG-0>, SEPARATED BY COLONS, WHERE <FLAG> HAS 
ONE Of THE FOLLOWING VALUES: 

HOE HALT ON uRROR. CAUSING COMMAND MODE TO BE 
ENTERED WHEN AN ERROR IS ENCOUNTERED 

LOE LOOP ON FRROR, CAUSING THE DIAGNOSTIC i'O LOOP 
CONTINUOUSLY WITHIN THE SMALLEST DEFINED BLOCK 
Of CODING (SEGMENT, SUBTEST, OR TEST) CONTAIN- 
ING THE ERROR 

IEH INHIBIT ERROR REPORTING 

TBt INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER OF TEST BEING EXECUTED 

BOE BELL ON FRROR 

UAM RUN IN UNATTENDED MODF , BYPASSING MANUAL 
INTERVENTION TESTS 

ISR INHIBIT STATISTICAL, REPORTS 

IDU INHIBIT DROPPING UK UNITS BY DIAGNOSTIC 

LOT LOOP ON TEST 
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SEQ 0009 



THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 
ARE CLEARED, A FLAG NOT SPECIFIED IS CLEARED, IF THE FLAGS 
SWITCH IS NOT GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT 
END OF 6.3,1.5, 



6.3 1.4 END OF PASS SWITCH ( /EOP : < INCR > ) 



OF PASS MESSAGE BE 
EVERY PASS. SEE 



<INCR> IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF 
PASSES) IT IS DESIRED THAT THE ENO 
PRINTED. THE DEFAULT IS AT THE END OF 
EXAMPLE AT END OF 6.3.1.5. 

6.3.1.5 EFFECT OF START COMMAND 

THE EFFECT 0* THE START COMMAND IS TO INITIATE THE HARDWARE 
PARAMETER DIALOGUE , THE SOFTWARE PARAMETER DIALOGUE, AND 
THEN THE DIAGNOSTIC TESTS THEMSELVES. 



THE HARDWARE PARAMETER 
"0 UNITS?" TO WHICH THE 
NUMBER N FROM 1 TO 16. 
TO WHICH THIS SERIES OF 
THIS ARE THE QUESTIONS 
BE BUILT. EACH P-TABLE 
ALL 
MUST 



DIALOGUE COMMENCES WITH 1 HE QUESTION 
OPERATOR REPLIES WITH A DECIMAL 
THE TERM "UNIT" REFERS TO THE DEVICE 
DIAGNOSTICS IS DEDICATED. FOLLOWING 
WHEREBY THE P-TABLES THEMSELVES WILL 
IS A CORE -RESIDENT TABLE CONTAINING 
THE HARDWARE INFORMATION FOR ONE UNIT. THE OPERATOR 
SUPPLY N (NUMBER OF UNITS) VALUES FOR EACH QUESTION. 
Y^ MAY DO THIS BY GIVING ONE ANSWER TO EACH QUESTION C IN 
WHICH CASE THE SERIES OF QUESTIONS WILL BE POSED N TIMES) O'i 
BY GIVING N VALUES, SEPARATED BY COMMAS. TO EACH QUESTION 
(SERIES WILL BE POSED ONCE). EACH QUESTION IS FOLLOWED BY 
THE RESPONSE RADIX (D F0« DECIMAL, B FOR 3INARY, FOR 
OCTAL, L FOR YES/NO) IN PARENTHESES AND THE DEFAULT VALUE 
AFTER THE PARESiHi: SES . 

FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS 
TO BUILD THE SOFTWARE TABLES, WHICH DEFINE THE MODE (QUICK 
VERIFY ETC.) THAT THE DIAGNOSTIC WILL EXECUTE IN. 

WHEN THf QUESTION "0 UNITS?" IS ANSWERED, MEMORY STORAGE IS 

ALLOCATED FOR THE P-TABLES, AND IF TH^RE IS NOT ENOUGH TO 

ACCOMMODATE THEM THE MESSAGE "TOO MANY UNITS" IS ISSUED. IN 

THIS CASE THE DIAGNOSTIC MUST BE EXECUTED MORE THAN ONCE TO 
TEST ALL UNITS. 

EXAMPl F ; 

STA/TESTS:1:2 4 :6 ;8 10/PASS : 3/FLAGS : IERtHOE • 1 :UAM;LOF 

THIS COMMAND WILL CAUSt THREE PASSfcS TO BE MADE. EACH PASS 
CONSISTING OF TFSTS 1,2,3,4,6,8,9, AND 10 EXECUTED AGAINST 
All UNITS. THERE IS NO DIFFERENCE BETWEEN SAYING <FLAG* AND 
SAYING <FLAG-1». THE NOTATION <FLAC»-0* IS MEANINGFLX ONLY ON 
A COMMAND OTHER THAN *,TAR! TO CLEAR A Ft AG THAT WAS 
PREVIOUSLY SET. NOTE THAT UN ALL COMMANDS ONLY THE FIRST 
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SEQ 0010 



THREE LETTERS ARE SCANNED, 



6.5.2 RESTART COMMAND 

RES( TART )/ TESTS t< TEST -L 1ST > /PASS ;< PASS -CNT > /FLAGS : 
<FLAG-LIST>/UNITS: <UNI1 -LIST> 

*********************************************************** 



6.3.2.1 TESTS, PASS, AND FLAGS SWITCHES 

<TEST-L.IST>, <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THE START 
COMMAND. 

6.3.2.2 UNITS SUITCH ( /UNITS: <UNIT -LIST> ) 

<UNIT LIST> IS A SEQUENCE OF DECIMAL NUMBERS (0,1 FTC.) OR 
RANGES OF DECIMAL NUMBERS (0-5, 8-10 ETC.) THAT SPECIFY Th"- 
UNITS TO BE TESTED, THE NUMBERS ARE SEPARATED BY COLONS. 
THE NUMBERS MAY RANGE FROM C THRU N-l (N IS THE NUMBER OF 
WITS SPECIFIED IN THE PREVIOUS START COMMAND). THE NUMBER 
INOICATES TH€ POSITION OF THE P-TABLE AS THE DATA WAS 
ENTERED DURING THE HARDWARE DIAGLOGUE. THE UNITS WHICH ARE 
SELECTED MUST NOT HAVE BEEN DROPPED BY THE DROP COMMAND. 
SEE THE DISCUSSION OF ADD ANO DROP COMMANDS BfcLUW. DEFAULT 
IS TO TEST ALL UNITS WHICH HAVE NOT BEEN DROPPED UY A DROP 
COMMAND . 



START COMMAND IN THAT 
COMMAND (THERE MUST 
NEU ONES BEING BUILT. 
SELECT A SUBSET OF 



6.3.2.3 EFFECT OF RESTART COMMAND 

THE RESTART COMMAND DIFFERS FROM THE 

THE P-TABLES FROM THE PREVIOUS START 

HAV'£ BEEN ONE) ARE USED, INSTEAD OF 

THE UNITS SUITCH GlVE r THE ABILITY TO 

THESE. THL SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED 

(OPERATOR WILL BE ASKED). THE COMMANO CAN BE USED AFTER 

COMMAND MODE HAS BEf N REENTERED IN ANY OF THE THREE NORMA! 

WAYS: A) THE REQUESTED NITIBER OF PASSES HAVE BEEN MADE B) 

AN ERROR WAS ENCOUNTERED WITH THE HALT ON ERROR FLAG SET C) 

A CONTROL/C WAS ENTERED BY THE OPERATOR. 



6,3,3 CONTINUE COMMAND 

4*****4*4***t*******************4*******t**fc**4*********t** 
CON( TINUE )/PASS:<PASS CNT/FLAGS : <FLAG LIST* 

*•***** + ** + *** + *•***♦♦**. + *♦* + + ***♦****** + ******** + * + + + + + + ** 



6.3.3. 1 PASS SWITCH (/PASS 



PASS 



CNT>) 



•PASS CNT > IS SAME AS IN 
THb UNSATISFIED PASS CNT 



STAR 
FRUM 



COMMAND, RuT THE' 
THE PREVIOUS START 



DEFAUi T IS 
<JR RESTART. 



L. 



1 
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IK NONE REMAINS, THE DEFAULT IS NON-ENDING EXECUTION, 



6,3,3,? FLAG SWITCH ( /FLAGS: <FLAG-LIST> ) 

<FlAG-l TST> IS SAME AS IN START COMMAND, BUT UNSPECIFTED 
FLAGS RETAIN THEIR CURRENT VALUE. 

6,3.3,3 EFFECT OF CONTINUE COMMAND 

CONTINUE MUST FOLLOW A START OR RESTART, AND COMMAND MODE 
I'i'JST HAVE 3EEN ENTERED DUE TO A HALT ON ERROR OR A 
CONTROL /C. THE EFFECT OF THE COMMAND IS TO GO TO THE 
BEGINNING OF THE TEST THAT WAS BEING EXECUTED WHEN THE HALT 
OR CONTROL/C T00'< PI ACE . SOFTWARE DIALOGUE MAY OPTIONALLY 
BE REEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED. 

6.3,4 PROCEED COMMAND 

*********************************************************** 
PRO(CEED)/FLAGS:<FLAG-LIST> 

*************************************4********************* 

6.3.4.1 FLhGS SWITCH ( /FLAGS: <FLAG-LIST> ) 

<FLAG-LIS~> IS AS IN THE START COMMAND, BUT UNSPECIFIED 
FLAGS RETAIN THEIR CURRENT VALUE, 



SEQ 0011 



6,3,4,? EFFECT 



PROCEED COMMAND 



PROCEED MUST FOlLOW A START, RESTART, OR CONTINUE. COMMAND 
MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT 
OF THE COMMANO IS TO BEGIN EXECUTION AT THE LOCATION 
FOLLOWING THE ERROR CALL. NEITHER HARDWARE NOR SOFTWARE 
PARAMETERS MAY BE ALTERED. 



6.3.5 ADD COMMAND 

*********************************************************** 
ADD/LMITS:<UNIT 1 1ST* 

««»**«4>***4«*********************************************** 



6.3,5.1 UNITS SWITCH ( /UNI TS ; <UNIT-L 1ST » 
<UNIT-IIST> IS AS IN THE RESTART COMMAND. 



6.3.5.? EFFECT OF ADO COMMAND 

THfc UNITS SPECIFIED ARE ADD* TO THE U $1 SfcQU* NCt- . {AC* 
ONI I HUST MAVE A P-TABLE IN MEMQRl DUE TO AN EARLIER 



M 1 
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PROGRAM DOCUMENT 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

53C 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

54 3 

54 4 

545 

546 

54 7 
548 
549 
550 
551 
552 
553 
554 
555 
556 

55 7 
558 
559 
560 
56 1 
562 

56 3 
564 
565 
566 
56/ 
568 



SEQ 0012 



HARDWARE DIALOGUl . THIS COMMAND MUST BE FOLLOWED BY A 
RESTART OR CONTINUE. THE UNITS SWITCH MUST BE SPECIFIED, 
THE ADD COMMAND If MEANINGFUL ONLY FOR UNITS THAT WERE 
PREVIOUSLY DROPPED. 



6.3.6 DROP COMMAND 

+ * + + + * + 4^ + + + * + ** + + ** + + ♦ + *** + *** + + + + %* + ** + + + + + + * + ♦*♦ + * + * + * + * 

DROCPVUNITS;<UNIT-LIST> 

*********•***+* + * + + ********************** + ****************** 



6.3.6.1 UNITS SWITCH ( /UNITS j <UNIT -LIST> ) 
<UNIT-LIST> IS AS IN THE RESTART COMMAND. 



6.3.6.2 EFFECT OF DROP COMMAND 

THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING. THE UNITS 
WILL BE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START 
COMMAND. THF UNITS SWITCH MUST BE ENTERED. THIS COMMAND 
MUST BE FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 



6.3.7 PRINT COMMAND 

++*+**+*+*****+*******+******+*+**++++++******************+ 
PRICNT) 

******'.**************************************************** 



6.3.7.1 EFFECT OF PRINT COMMAND 

THE TOTAL NUMBER OF ERRORS FOR EACH UNIT SINCE THE LAST 
START OR RESTART COMMAND ARE PRINTED. THE ISR (INHIBIT 
STATISTICAL REPORTING) FLAG IS CLEARED. 

6.3.8 DISPLAY COMMAND 

»»♦**»**♦*♦«»**♦*»»*♦*•♦*»»**♦♦*♦•♦**»*♦*♦*»♦**♦•♦♦*♦*♦♦»*♦ 

DIS(PLAY)/UNITS:<UNIT-LI5T> 

+*+*************+*******+**********+**+******************** 



6.3.8.1 UNITS SWITCH ( /UNITS : <UNIT I 1ST > ) 
<UNIT-LIST> IS AS IN THE RESTART COMMAND, 

6.3.8.2 EFFECT OF DISPLAY COMMAND 

THE HARDWARE P -TABLES FOR AIL UNITS UNDER TEST ARK PRINTED 
OUT IN THE FORMAT IN WHIG' THEY WERE ENTERED. AN> UNITS 
" tAl WERC QRQPPED B^ THE OPERATOR -DROP** COMMAND ARE SO 



CNDMEAO OM\'ll LINE UNIT D1AG3 

PROGRAM DOCUMENT 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

60 7 

608 

609 

610 

611 

61? 

613 

614 

MS 

6 .1 6 

M ? 

618 

619 

620 

621 

622 

623 

624 

625 
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SEQ 0013 



DESIGNATED. 

6.3.9 FLAGS COMMAND 

FLACGS) 

**++ + + + + + + *** + + + + * + + * + * + ** + * + + + + * + + ** + ** > + + + +, + + + + + + + + + + + + + 

6.3.9.1 EFFECT OF FLAGS COMMAND 

THE CURRENT SETTINGS OF ALL FLAGS ARE PfciNTF.D. 

6.3.10 ZFLAGS COMMAND 
ZFL(AGS) 

6.3.10.1 EFFECT OF ZFLAGS COMMAND 
ALL FLAGS ARE CLEARED. 

6.?. 11 CONTROL CHARACTERS 

A CONTROL C (C) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC CAUSES 
A RETURN TO COMMAND MODE. 

A CONTROL Z U) ENTERED DURING ONE OF THE THREE OPERATOR 
DIALOGUES- HARD CORE QUESTIONS (SEE 6. 2), HARDWARE DIALOGUE. 
(SEE 6.3.1.5) W SOFTWARE DIALOGUE v SEE 6.3.1.5) CAUSES THE 
DEFAULTS TO B.. . .WEN FOR THE REMAINDER OF THAT DIALOGUE. 

A CONTROL (0) ENTERED DURING THE EXECUTION OF A DIAGNOSTIC 
CAUSES ALL TELETYPE OUTPUT TO BE SURPRESSED FOR THE 
REMAINDER OF THE DIAGNOSTIC OR UNTIL ANOTHER IS TYPED, 
WHICH RESTORES NORMAL TELETYPE OUTPUT. 

6.3.12 HARDWARE PA2'\METERS 

THE FOLLOWING 3 QUESTIONS WILL BE ASKED ON A START COMMAND. 
THE VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE. TAKEN ON A CARRIAGE RETURN 
RESPONSE. 



1. DEVICE CSR ADDRESS 



(0) 160020? 



THIS IS THE ADDRESS AT UHJCH THE CSR REGISTERS iStLO") RESIDE 
ON THE LSI BUS. THE Al LOuARl E RANGE IS 160050-177760 

(OCTAL). AND THE DEFAULT VALUE, rs 160020. 

2* DEVICE VECTOR ADQHESS ; (0) 300 V 
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6*?b 

bJ8 

650 
651 
632 
633 
634 
635 
63b 
637 

638 
639 
b40 
641 
64 c ^ 
t>43 
644 
645 
646 
64 7 
648 
649 
650 
651 
652 
653 
654 
655 
656 
65* 
658 
659 

660 
661 
66? 
663 
664 
665 
666 
66 7 
668 
66^ 
6 70 
6/1 
6 72 
675 
6 74 
6/5 
676 
6 7 7 
6/8 
6 7 9 
6«X 
6M1 
682 
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SEQ 0014 



THIS IS THE AODRESS OF THE INPUT INTERRUPT VECTOR FOR THIS 
DEVICE, THE ALLOWABLE RANGE IS 000-674 (OCTAL), AND THE 
DEFAULT VALUE IS 300. 

3, DEVICE PRIORITY LEVEL : CO) 4 ? 

THIS IS THE CPU PRIORITY AT WHICH THE INTERRUPT HANDLERS OF 
THIS DEVICE WILL BE EXECUTED. THE ALLOWABLE RANGE IS 0-7. 
AND THE DEFAULT VALUE IS 4, 

4, BOARD TYPE (0-M8064, 1-M8053-V35, 2-M8053 -EIA) : (0) ? 

THIS IS THE TYPE OF OMV-11 CURRENTLY INSTALLED. NOTE THAT THE 
M8053 IS SWITCH SELECTABLE BETWEEN V . 35 AND EIA. 

5, TURNAROUNO CONNECTOR TYPE • 

(0-M3254£M3255, 1 -INTEGRAL *'UUEM CABLE, 2-EIA CABLE, 
3-V.35 CABLE, 4-NONE) : f(.r ? 

THIS IS THE TYPE OF EXTERNAL I 0';PPACK CONNECTOR BEING USED. 
IF NO LOOPRACK CONNECTOR IS PhtSENT C4), THE EXTERNAL LOOP* 
BACK TESTS WILL ALL BE RUM USING TTL -INTERNAL LOOPBACK. 

6.3.13 SOFTUAR: PARAMETERS 

NO SOFTWARE PARAMETER QUEST XuNS ARE ASKED BY THIS TEST, 

6.3.14 EXTENDED DISCUSSION OF P-TABLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGIC IS REVEALED Br 
THE FOLLOWING DISCUSSION Of" WHAT HAPPENS INTERNALLY, 

AS SOON AS THE QUESTION "• UNITS?" IS ANSWERED (WITH THE 
NUMBER N. SAY) SPACE IN CORE IS ALLOCATED FOR N P TABLES. 
ALL OF THE P- TABLES ARE OF THE SAME FORMAT, ANO THERE IS A 
ONE -TO ONE CORRESPONDENCE BETWEEN THE HARDWARE PARAMETER 
QUESTIONS ANO THE SLOTS IN THE P-TABLE FORMAT. 

ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN 
ALL OF THE P-TABLES ARE FILLED. IF THE OPERATOR TtPES IN 
LESS THAN N EXPLICIT VALUES IN RESPONSE TO A PARTICULAR 
QUESTION, THESE VALUES ARE PLACED IN THE P - TABLES (ONE VALUE 
GOING INTO THE PROPER SLOT OF EACH P-TABLE BEGINNING WITH 
THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS EXHAUSTED. 
THE LAST VALUE IN THE STRING BECOMES THE NEW DEFAULT ANO IS 
USED TO FILL THAT SLOT IN THE REMAINING P-TABLES. 

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS 
CARRIED OUT. EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE 
RECEIVED AN EXPLICIT VALUE IN ANl Of ITS SLOTS NOW ASSUMES 
THE. ROLE THAT TABLE NUMBER ONE PLAYED IN THE FIRST TRIP. 



THf SERIES 
UUtSTXUN 



HAS 



OF QUESTION- 
RECEIVED N 



is rnssirt.o until at uast one 

EXPLICIT VALUES FROM THE OPERATOR, 
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683 

b84 
685 
68fo 
687 
688 
t>89 
690 
691 
69,: 
693 
694 
6°>5 
096 
o97 

698 
699 
700 
701 
70c? 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
72? 
723 
724 
725 
726 
72 7 
728 
729 
750 
751 
7 32 
733 
/« 
7 55 
7 56 
7 37 

"Ma 

739 



MACRO M1200 22-FEB -84 15 5 48 PAKE 6-9 



IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING 
VALUES MAY BE USED TO INDICATE A REPETITION OF THE LAST 
NAMED VALUE. 

A STRING OK VALUES MAY BE GIVEN AS A RANGE (6-10 FOR 
EXAMPLE), IF THE VALUES REPRESENT PURE NUMERICAL DATA, THIS 
SAMPLE RANGE TRANSLATES TO THE STRING 6,7,8,9,10 CAN 
INCREMENT OF 1 ) . IF THE VALUES ARE ADDRESSES, THE SAMPLE 
RANGE TRANSLATES TO THE STRING 6.8,10 (AN INCREMENT OF 2 ) . 



NOW LET US 
CONSTRUCT A SE 
AND THAT THERE 
SLOTS IN THE 
DIALOGUE). LE 
THE NUMBER 75 
THE SECOND 
(0,1,2, ...,15) 
VALUE 11, LE 
THE NUMBER 76 
THE LAST 9 UNI 



SEE HOW WE COULD USE THESE CAPABILITIES TO 

T OT P-TABLES. ASSUME THAT WE HAVE 16 UNITS, 

ARE THREE HARDWARE PARAMETERS FOR EACH (THREE 

P-TAtfLE, THREE HARDWARE QUESTIONS IN THE 

T THE DESIRED VALUE FOR THE FIRST PARAMETER BE 

FOR ALL 16 TABLES. LET THE DESIRED VALUE FOR 

PARAMETER BE EQUAL TO THE UNIT NUMBER 

EXCEPT FOR LNIT 12, WHICH SHOULD RECEIVE THE 

T THE DESIRED VALUE FOR THE THIRD PARAMETER BE 

FOR THE FIRST 7 UNITS AND THE NUMBER 77 FOR 

TS. 



THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL 

UNITS (D) ? 16 
UNIT 

QUESTION 1> ? 75 
'QUESTION 2> ? 0-6 
'QUESTION 3> ? 76 



LNIT 7 
'QUESTION 
'QUESTION 
'QUESTION 



1> 
2> 
3> 



7-11 
7 7 



13-15 



THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 

IN ALL 16 TABLES. SLOT TWO RECEIVES THE VALUES 0,1,2 6 

IN TABLES THRU 6 AND A CONSTANT 6 IN TABLES 7 THRU 15. 
SLOT THREE RECEIVES A CONSTANT 76 IN ALL 16 TABLES. 



THE SECOND TIME THRU THE SERIES, TABLES 7 THRU THE ENO ARE 
GOING TO BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS 
PRINTED OUT FOR THE THE OPERATOR IN THE FORM "UNIT XX" 
THE BEGINNING OF EACH SERIES). QUESTION 1 IS RESPONOED 
BY A <CR*. SO SLOT ONE STAYS AT CONSTANT 75 IN TABLES 
15, SINCE NO NEW EXPLICIT VALUES ARE TYPED IN. SLOT 
THE VALUES 7,8,9,10,11 IN TABLES 7 THRU 11, AND 
AN U IN SLOT 12. AND GETS THE VALUES 13,14,15 IN 

THRU 15. SLOT THREE GETS THE VALUE 77 IN TABLES 



THRU 
GETS 
GETS 



AT 
TO 
7 
TWO 



SEQ 0015 



TABLES 13 
THRU 15. 



7 



THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RtCOGNUES THAT 
16 EXPLICIT VAIUES HAVE BEEN GIVEN FOR AT LEAST ONE QUESTION 
(NAMELY QUESTION 2), 



02 
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SEQ 0016 
PROGRAM DOCUMENT 

741 

742 

743 7.0 TEST DESCRIPTIONS 

744 

74 5 

746 J**************************************************.****************** a ******** 

.'4 7 j* TEST 1 <RX DATA FLUSHING TEST> 

748 j* 

74 <* ,♦ IN BCP MODE/HALF DUPLEX IT IS DESIRABLE TO HAVE THE ABILITY TO FLUSH 

750 j* THE USYRT OF ITS CRC CHARACTERS. THIS FLUSHING IS ACCOMPLISHED BY WRITING 

751 •* TO THE VIA SHIFT REGISTER. 

752 i* THIS TEST VERIFIES THAT WHEN THE VIA SR IS WRITTEN INTO, 8 PULSES WILL 

755 }♦ BE GENERATED AT THE CB1 PIN (WHICH DIRECTLY FEEDS THE CHARACTER FIFO). 
7b^ i ♦ 

756 

75 7 

756 \*************** + + + + + + + ** + + * + *** + + *** + **** + ******,********** + **m************* 

759 ,« TEST 2 < INTEGRAL MODEM INTERFACE TEST> 

760 { * 

761 j* THE INTEGRAL MOOEM IS SELECTED BY THE PROGRAM ANO A MESSAGE IS 

762 , * TRANSMI~TEO, RECEIVED. ANO CHECKED USING A TURNAROUND CONNECTOR ON 

763 ,♦ THE BOARD OR AT THE ENO OE A CABLE. THE FOLLOWING MESSAGE WILL BE 

764 { * SENT IN BCP MODE WITH CRC -16 SPECIFIED: 

765 j* 

766 j* SYNC SYNC 000 125 252 377 000 CRC1 CRC2 SYNC 

767 j* 

7o8 ,* IF THE P-TABIE FOR THE CLflRENT LWIT INOICATES THAT NO EXTERNAL 

769 ,♦ TURNAROUNO IS PROVIDED, THE TEST WILL BE SKIPPED FOR THAT UNIT. 

770 i****,********************************,******************.*******.************.**** 



771 
7 72 

773 



'82 



7?4 j* TEST 3 <DATA TEST -- BCP XLB CRC- 16 > 

7 75 .* 

776 j* IF XLB IS SPECIFIED IN THE P TABLE , THIS TEST WILL TRANSMIT L 

7 77 ,♦ RECEIVE IN BCP MODE WITH CRC - 16 ERROR DETECTION THE FOLLOWING 

7 78 .♦ MESSAGE: 

779 ,* 

760 ,♦ 125 252 000 377 0C1 002 004 010 020 040 100 200 376 375 373 367 

781 ,* 357 337 277 177 



i* 



783 {♦ THIS MESSAGE WILL BE PRECEDED BY 3 SYNC CHARACTERS AND REPEATED 

784 ,* THREE TIMES WITH CRC'S FOLLOWING EACH ONE. THE LAST TRANSMISSION QV 

785 , ♦ THE CRC Will BE FOLLOWED BY SEVERAL SYNC CHARACTERS BEFORE DROPPING 

786 ,♦ TXE C RXE. 8 BIT CHARACTER LENGTHS ARE ALSO UTILIZED. 

787 ,* 

788 ,♦ IF XLB WAS NOT SPECIFIED (ANO/OR BOARO TYPE IS M8064 ) , THIS TEST MAI BE RUN 

789 .* USING INTERNAL LOOPBACK (TTLOOP-1). 
790 

791 
792 

79*; 



J 



J 



794 , ♦ TEST 4 <DATA TEST -- HCP XI H ODD V«C> 

795 : * 

79fc }♦ IF XLB IS SPECIF If D IN THF P- TABLE. TH^S TEST Will TRANSMIT i, 

797 ;♦ RECEIVE IN BCP MODE WITH ODD VRC ERROR DETECTION THE FOl.l OWING 



E2 
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PROGRAM DOCUMENT 

798 
799 

800 
801 
802 
805 
804 
805 
806 

bo : 

808 
80^ 
810 
811 
81? 
81? 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
8 32 
833 
8 54 
835 
836 
637 
838 
839 
640 
84 1 

842 

84 5 
844 
845 

846 
84/ 
848 
849 
850 
851 
85? 

85 5 
654 



SEQ 0017 



MESSAGE: 

125 252 000 3^7 001 002 004 0X0 020 040 100 200 376 375 373 367 

357 337 277 177 

THIS MESSAGE WILL BE PRECEDED BY 3 SYNC CHARACTERS AND REPEATED 

THREE TIMES, AFTER THE LAST MESSAGE, SEVERAL SYNC CHARACTERS ARE 

SENT BEFORE DROPING TXE £ RXE . 7 -BIT CHARACTER LENGTHS ARE ALSO 
UTILIZED. 

IF XLB WAS NOT SPECIFIED (AND/OR BOARD TYPE IS M8064). THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK (TTLOOP-1). 

TEST 5 <DATA TEST -- BCP XLB EVEN VRC> 



IF XLB IS SPECIFIED 
RECEIVE IN BCP MODE 
MESSAGE: 



IN THE P-TABLE, THIS TEST WILL TRANSMIT L 
WITH EVEN VRC ERROf. DETECTION THE FOLLOWING 



125 252 000 377 001 002 004 010 020 040 100 200 376 375 373 367 
357 337 277 177 

THIS MESSAGE WILL BE PRECEDED BY 3 SYNC CHARACTERS AND REPEATED 

THREE TIMES, AFTER THE LAST MESSAGE, SEVERAL SYNC CHARACTERS ARE 

SENT BEFORE DROPING TXE 6 RXE. 7 -BIT CHARACTER LENGTHS ARE ALSO 
UTILIZED. 

IF XLB WAS NOT SPECIFIED (AND/OR BOARD TYPE IS M8064 ) , THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK (TTLOOP-1). 

TEST 6 <DATA TEST - BOP XLB CRC CCITT-1> 

IF XLB IS SPECIFIED IN THE P-TABLE, THIS TEST WILL TRANSMIT L 
RECEIVE IN BOP MODE WITH CRC-CCITT-l ERROR DETECTION THE FOLLOWING 
SHORT MESSA.ci 125 252 000 377 001 

THIS MESSAGE Will BE PRECEOED BY FLAG CHARACTERS AND REPEATED 
THREE TIMES WITH CRC ANO FLAG'S FOLLOWING EACH ONE. 8-BIT CHARACTER 
LENGTHS ARE Al SO UTILIZED. 

IF XI B WAS NOT SPECIFIED (ANO/OR BOARO TYPE IS M8064 ) , THIS TEST Mr 1 i*. RUN 

USING INTERNAL LOOPBACK ( TTLOOP-1). 

TEST 7 <DATA TEST -- BOP XLB CRC-CCITT-0> 

K XLB IS SPECIFIED IN THE P-TABLE. THIS TEST Wit 1 TRAN^MI T !\ 
RECEIVE IN BOP MODE WITH CRC-CCITT ERROR DETECTION THE FOLLOWING 
SHORT MESSAGE; l?5 25? 000 3/? 001 



F 



[TO 
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855 

856 
85? 
858 
859 
860 
8bl 
862 
863 
864 
865 
8ob 

86 7 
868 
869 
8 70 
871 
8 7? 
8 73 
874 
875 
876 

87 7 
878 
879 
880 
881 
882 
883 
884 
885 
886 
88? 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
90? 
903 
904 
905 
906 
90/ 
905 
9G9. 
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SEQ 0018 



THIS MESSAGE WILL BE PRECEDED BY FLAG CHARACTERS AND REPEATED 
THREE TIMES WITH CRC AND FLAG'S FOLLOWING EACH ONE . B-BIT CHARACTER 
LF.NGTHS ARF. ALSO UTILIZED, 

IF XLB WAS NOT SPECIFIED C AND/OR BOARD TYPE IS M8064 ) f THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK (TTLOOP-l). 



*****4> ********************************************************************** 

TEST 8 <MODEM CONTROL SIGNAL LOOPBACK TEST> 

FIRST, THE DMV-11 IS INITIALIZED. THEN, TTL LOOPBACK IS SELECTED. 
AND THE FOLLOWING CHECKS ARE PERFORMED INVOLVING THE MODEM STATUS 
REGISTER : 

- RING, CARRIER, MODEM READY, TEST MODE, CTS ARE CHECKED FOR 1 STATE. 

- RTS IS DE -ASSERTED AND CTS IS CHECKED FOR 0. 

- RTS IS ASSERTED AND CTS IS CHECKED FOR 1, 

NEXT, IF THE OPTION IS AN M8053 WITH AN H3254 TEST CONNECTOR INSTALLED, 
THE DMV-11 IN INITIALIZED AGAIN, CTTL LOOPBACK IS CLEARED), AND 
THE FOLLOWING CHCCKS ARE PERFORMfcO : 

- RING, CARRIER, MODEM READY, CTS ARE CHECKED FOR 1, TEST MODE IS CHF.CKED 

FOR 0, 

- RTS IS DE -ASSERTED, ANO CARRIER AND CTS ARE CHECKED FOR 0. 

- RTS IS ASSERTED, AND CARRIER ANO CTS ARE CHECKED FOR 1. 

- DTR IS DE- ASSERTED. AND MODEM READY IS CHECKED FOR 0. 

- DTR IS ASSERTED, AND MODEM READY IS CHECKED FOR 1. 

**************************************************************************** 



J* 
{* 
t* 
1 + 
t* 

5* 

• * 

;* 

;* 

i ♦ 

l* 

j + 
• * 

t* 
j * 
;* 

j * 

i * 
i * 



TEST 9 <DDCMP MESSAGE TEST* 

THIS TEST WILL USE XLB IF IT IS ENABLED -- OTHERWISE TTL LOOPBACK 
WILL BE UTILIZED, THIS ASSURES THAT IT CAN ALWAYS BE RUN AS A 
GENERAL "RINGOUT" OF THE M8053. 

INITIALIZATION: BCP MODE, CRC 16, 101 E - 0, SYNC (S/AR) - £26 OCT. 
C96 HEX,), RXCL 6 TXCL • (CHAR, LENGTH - 8). 

THE FOLLOWING SAMPLE DDCMP MESSAGE IS TRANSMITTED 6 RECEIVED AND ALL 
DATA AND CRC CHARACTERS ARE CHECKED FOR ERRORS; 

- HEADER DATA (PATTERN K) - 

SYNC SYNC 201 000 075 003 002 001 CRC CRC 000 5/7 ... 252 000 CRC CRC 

THE ATTEMPT HERE IS TO PROVIDE A TEST JUS) BELOW THE LEVEL Of 1*1 
FUNCTIONAL DIAGNOSTIC. THE USiRT WILL BE RESPONSIBLE FOR ALL CMC 
GENERATION ANO VERIFICATION BUT THE CRC'S WILL ALSO BE VERIMED B^ 
SOf TWARE. 

************************************************************************** 
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911 

912 
913 
914 
915 
916 
91i' 
918 
919 
920 
921 

923 

924 
925 
926 
927 

928 
929 
930 
931 
932 
933 
934 
935 
936 
93/ 
938 
939 
940 
941 
942 
44 3 
944 
945 
946 
94 1 
948 
944 
950 
951 
9b? 



SEQ 0019 



8,0 ERROR INFORMATION 



8,1 ERROR REPORTING 

ERRORS ARE REPORTEO BY THE PROGRAM AS THEY OCCUR (IF NOT 
INHIBITED). THE REPORT CONFORMS TO THE DIAGNOSTIC SUPERVISOR 
ERROR REPORT FORMAT, AND CONSISTS OF A DESCRIPTION OF THE 
ERROR, THE TEST NUMBER, SUBTEST NUMBER, PC OF THE ERROR 
CALL, DEVICE ADDRESS, AND BASIC AND EXTENDED ERROR 
INFORMATION. 

THE FOLLOWING EXAMPLE PROVIDES A TYPICAL ERROR REPORT, WHICH 
DESCRIBES A "MASTER CLEAR FAILURE" ERROR, AND PROVIDES THE PC 
OF THE ERROR CALL AND THE DEVICE REGISTER CONTENTS : 

CNDMB DVC F1L ERR 0000 t ON UNIT 00 TST 002 SUB 000 PC; 021122 
MASTER CLEAR FAILURE 

THE CONTENTS OF ALL BYTE SELECT REG'S ARE; 
BSELO BSEL1 BSEL2 BSE13 
000 000 000 000 

BSEL4 BSEL5 BSEL6 BSf 1 7 
000 000 121 000 
BSEL10 BSEL11 BSEL12 BSEL13 
000 000 000 000 

BSEL14 BSEL15 BSEL.16 BSEL17 
000 000 000 000 



FOR OTHER ERRORS, THE REPORT MAY BE MORE 
REQUIRE ADDITIONAL DATA TO BE REPORTED. 



EXTENSIVE, AND 



IF EXTENDED ERROR INFORMATION HAD BEEN INHIBITED USING THE 
IXE FLAG PRIOR TO RUNNING THE TEST, THE ABOVE ERROR WOULD 
HAVE BEEN REPORTED IN THF FOLLOWING SHORTENED FORM : 

CNDMB DVC FTL ERR 00001 UN UNIT 00 TST 002 SUB 000 PC: 021122 
MASTER CLEAR FAILURE 

a 



H2 
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SEQ 0020 



9S4 






c *55 






956 






057 




000000 


958 






959 






960 






961 






967 




002000 


968 






969 






9/0 


002000 




971 






97? 






9 73 


002000 




974 






9/5 






9 76 




000001 


977 




000001 


978 




000001 


979 




000001 


980 




000001 


981 




000001 


98? 




000001 


98? 






984 






985 






986 






987 







,SBTTL GENERAL EQUATES AND DS INVOCATION £ SETUP 



HELP-0 



$1 STIN- 
U.STTAG 
SVCINS- 
SVCTST- 
SVCSUG- 
SVCGBL- 
SVCTAG" 



, -?000 



i CONTROL LISTING OF HELP INFORMATION 

j HEL.P-0 NO LIST 
j HELP-1 LIST 



MCALL SVC 
SVC i INITIALIZE SUPERVISOR MACROS 



BGNMOD LU1M0D 



LIST INSTRUCTIONS, SHIFTED RIGHT 
LIST TEST TAGS, SHIFTED RIGHT 
LIST SUBTEST TAGS, SHIFTED RIGHT 
LIST GLOBAL TAGS, SHIFTED RIGHT 
LIST OTHER TAGS, SHIFTED RIGHT 



; CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 

i TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS, CHANGE THE 

j SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS* YQU MAY 

} CHANGE THE SYMBOLS AT ANi POINT IN YOUR PROGRAM, 



J 



C. 
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PROGRAM HEADER 



989 






990 






991 






992 






995 






994 






995 


002000 




996 






1004 






1005 


002000 
002000 






002000 


105 




002001 


116 




002002 


104 




002005 


115 




002004 


105 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






002012 


000000 




002014 






002014 


000017 




002016 






002016 


055700 




002020 






002020 


000000 




002022 






002022 


002150 




Or ^024 






002024 


000000 




002026 






002026 


054542 




002050 






002050 


000000 




002012 






0020 52 


000000 




002054 






002054 


OOOOOO 




002056 






002056 


000000 




002040 






002040 


002124 




002042 






0020 * 


OOOOCO 




0020s ■ 






002044 


OOOOOO 




002046 






002046 


OOOOOO 




002050 






002050 


005 




002051 


005 




00*052 





SBTTL PROGRAM HEADER 

THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNAU.BGNDU.ERRTBL 



HEADER CNDME,A,0,15.,0 



SEQ 0021 



UNAME; 


• 






.ASCII 


/C/ 




.ASCII 


/N/ 




.ASCII 


/D/ 




.ASCII 


/M/ 




.ASCII 


/E/ 




.BYTE 







.BYTE 







.BYTE 





I.IRF.V: • 








.ASCII 


/A/ 


LSDEPO 








'.ASCII 


/O/ 


l.RJNIT 








' .WORD 





L$TIML 








* .WORD 


15. 


LiHPCP 








* . WORD 


1 $ HARD 


LJSPCP 








' .WORD 





IJHPTP 








' . WORO 


LJHW 


L*SPTP 








* . WORD 





LU.ADP 








'.WORD 


I.JL.AST 


L$5TA: 








.WORD 





L$CO: : 








.WORD 





L$DTYP 


: j 






.WORD 





I SAPTt 








.WORD 





LJDTP: 








. WORD 


L IDISPATCH 


LJPRIO 








.WORO 





L$ENV1 








.WORD 





1.1F.XP1 








* .WORD 





I JMRF.V 








' ' .bi !L 


CJREV1S1UN 




.BUTE 


C$E0IT 



LJtF;: 
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PROGRAM HEADER 

002052 000000 

002054 000000 

002056 

002056 000000 

002060 

002060 003264 

002062 

002062 000000 

002064 

002064 000000 

002066 

002066 000000 

0020 70 

002070 023256 

002072 

002072 023252 

002074 

002074 000000 

0020/6 

002076 003304 

002100 

002100 104035 

002102 

002102 002172 

002104 

002104 022554 

002106 

002106 023250 

002110 

002110 023124 

002112 

002112 022546 

002114 

002114 000000 

002116 

002116 000000 

002120 

002120 000000 
1006 
1012 
1013 t £V£N 



J2 
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SEQ 0022 




.WORD 









.WORD 







L$SPC;: 










.WORD 







L$DEVP: 










" .WORD 


L$DVTYP 




LtREPP: 










* .WORD 







L$EXP4, 










* .WORD 







L$EXP5: 










* .WORD 







L»AUT« j 










.WORD 


L$AU 




L$OUT: ■ 










.WORD 


L*DU 




L.Sl.UN: 










.WORD 







l.*DLSP 


: 








.WORD 


L$DESC 




L$I.OAD 


* 








EMT 


EfLOAD 




L$ETP; 










.WORD 


L$ERRTRL 




LSICP: 










.WORD 


LUNIT 




LSCCP: 










.WORD 


IS CLE AN 




L$ACP: 










.WORD 


L*AUTO 




LfPRT; 










.WORD 


LSPROT 




LITEST 


; 








.WORD 







L$Dl.Y j 










.WORD 







LfHIME 


l I 








»WORD 








I<2 



CNDMhAO 0MV11 LINE UNIT D1A63 

DISPATCH TABLE 

1015 
1C16 
101? 002122 

1018 

1019 

1020 002122 

1021 

1022 002122 

002122 000011 

002124 

002124 023260 

002126 023560 

002130 026264 

002132 027142 

002134 02 7 704 

002136 030446 

002140 031130 

002142 031612 

002144 032556 
1023 
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. SBTTL DISPATCH TABLE 

SLASH 
l /////////// //////////////////////////////////////////////////// 

/ THE DISPATCH TABLE CONTAINS THF. STARTING ADDRESS OF EACH TF.ST. 

/ IT T S USED BY THt- SUPERVISOR TO DISPATCH TO EACH TEST, 
SLASH 
! \////////// ///////////////////////////////////////////// //////// 

DISPATCH 9. 



.WORD 


9 


L$DISPATCH: : 




.UORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


.WORD 


Ta 


.WORD 


T9 



SEQ 0023 



L^ 



c. 



CNDMEAO DMVH Ll'NF. UN II DIAG3 
DEFAULT HARDWARE P- TABLE 



1031 
103,? 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
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.SBTTL DEFAULT HARDWARE P-TABLE 



SEQ 0024 



i/ THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 

;/ THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

{/ IS IDENTICAL TO THE STRUCTURE OF THE RUN- TIME P- TABLE. 

i //////////////////////////////////////////////////////// /////////////////// 



1040 
1041 
1042 
1043 
1044 
1045 
1046 
104 7 
1048 
1049 
1050 
1051 
1052 



002146 
002146 
002150 
002150 

002150 
002152 
002154 
002156 
002160 
002162 
002164 
002166 



0021/0 
002170 



BGNHW DFPTBL 



000010 



160020 
000300 
004000 
000000 
000000 
000000 
000000 
000001 



.WORD 


160020 


.WORD 


300 


.WORD 


4000 


.WORD 


000 


.WORD 


000 


.WORD 





.WORD 





.WORD 


1 



ENDHW 



LiHW: : 

DFPTBL:: 

jDMVU CSR UNIBUS ADDRESS 
iDMVll INTERRUPT VECTOR 
jDMVU INTERRUPT PRIORITY LEVEL 
;SWITCH REG, 01 (BOOT ADDRESS) 
, SWITCH REG. 02 CDDCMP ADDRESS) 
t MODULE IS M8064 
jH32546H3255 USED 
{BAUD RATE - 56 K 

- 19.2 K 
I X « 56 K 



L 10000 j 



.WORD L10000-LSHW/2 



CNDMEAO DMV11 LINE UNIT 01AG3 
SOFTWARb P-TA8LP. 

1054 

1055 
1056 
1057 
1058 
1059 
1060 
1061 002170 



M2 
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SEQ 0025 



.SBTTL SOFTWARE P TABLE 

j ///////////////////// '///////////////////////////////////////////////// 

;/ THE SOFTWARE P~ TABLE CONTAINS THE VALUES OF THE PROGRAM 
1/ PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



1062 
1063 



002170 000000 

0021/2 

002172 

002172 
002172 



BGNSW SFPTBL 



ENDSW 



L*SW: ; 
SFPTBL: : 



« 10001; 



.WORD L10001-L^SW/2 



N2 
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SEQ 0026 



1065 

1066 
1067 
1068 
1069 
1070 
1071 

inn 

1073 002172 



100000 
0*0000 
020000 
010000 
0C4000 
002000 
00100C 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
00003/ 
000056 
000035 
000034 



000340 
000 300 
000240 
000200 



.SBTTL GLOBAL EQUATES SECTION -- BASIC EQUATES 



///////////////////////////////////////////////////////////////////////////// 

/ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
/ ARE USED IN MORE THAN ONE TEST. 

//////////////'///////////////J////////////////////////////////////////////// 

EQUALS 



; BIT C 


JIFINITI 


BIT15-' 


100000 


BIT14-- 


40000 


BIT13- 


- 20000 


BIT12-' 


10000 


BITll-« 


■ 4000 


BIT10-- 


• 2000 


UTTQ9-. 


• 1000 


biToe-- 


■ 400 


B1T07-- 


• 200 


BIT06-' 


• 100 


BIT05-- 


• 40 


BIT04- 


■ 20 


BIT03-' 


• 10 


BIT02^ 


• 4 


BIT01-' 


- 2 


BITOO- 


• 1 


BIT9" 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4" 


BIT04 


BIT3-- 


BITC3 


BIT2-- 


BIT02 


BIT1-- 


BIT01 


BIT0-- 


BITOO 



EVENT FLAG DEFINITIONS 

EF32:EFi.7 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START-- 32 

RF. RESTART- 31 

EF. CONTINUE** 30 

EF.NEW=* 29 

EF.PUR-* 28 



PRIORITY LEVEL DEFINITIONS, 



BIT POSITION IN SECOND STATU, WORD 
(100000) START COMMAND WAS ISSUO.D 
(040000) RESTART COMMAND WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
(010000) A NEW PASS HAS BEEN STARTED 
(004000) A POWER -FAIL/POWER -UP OCCURRED 



PRIC7-- 
PRI06-- 
PRI05-- 
PRIQ4** 



340 
300 
240 
200 



CNOMEAO DMVll LINE UNIT D1AG3 MACRO M! 

GLOBAL EQUATES SECTION -♦ BASIC EQUATES 

000140 
OOOIOO 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004 OOO 
010000 
020000 
04 0000 
100000 





B3 
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PRIO?*- 140 




PRI02-- 100 




PRIOX-- 40 




PRI0O-- 




[operator flag bits 




EVL-- 4 




LOT-- 10 




ADR-- 20 




IDU-- 40 




ISR-- 100 




UAM-- 2C0 




B0E-- 400 




PNT-- 1000 




PRI-» 2000 




IXE-- 4000 




IBE-- 10000 




IER-- 20000 




LOE-- 40OO0 




HQE«» 100000 





SEQ 002 7 



C3 
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SEQ 0028 



1075 




1076 




1077 




1078 




1079 




1080 


000020 


1081 


000001 


108? 




108? 




1084 




loss 




1086 




103,' 




1088 




1089 




1090 




1091 


000200 


109? 


000100 


1093 


000001 


1094 


000301 


1095 




1096 




1097 




1098 




1099 


ooozoo 


1100 




1101 




1102 




1103 




1104 


000001 


1105 


0OOO02 


1106 


000003 


1107 


000004 


1108 


000005 


1109 


000007 


1110 




1111 





.SBTTl REGISTER DEFINITIONS -- MAINTENANCE REGISTERS 



SELN 6 OSEl.N 



i t 



!♦ MAINTENANCE REGISTER * - BSELO 

} | *****.*******«*****************«*********.***************«** + ******** + ******,** 

IEO • BIT4 i "INTERRUPT ENABLE OUT" 

IEI ■ BITO i "INTERRUPT ENABLE IN" 

I BIT 7 IS ALSO USED BY THE MICROCODE. ITS LABEL IS "RQI" WHICH STANOS FOR 

j "REQUIST IN". IT'S PART OF THE HANDSHAKING FOR USING THE SEL £ BSEL REG'S. 

I HOWEVER, THE MAINT. LOOP DOES NOT MAKE USE OF THIS BIT AND IT IS THEREFORE 

I UNNECESSARY TO DEFINE IT HERE. 

j}*******************************A******************************************** 

t* MAINTENANCE REGISTER * 1 - BSEL1 

t I *************************************************************** ************* 

RUN ■ BIT7 i "RUN" € ALSO CONTROLS 6502 MICROPROCESSOR'S RDY STATE 

MCLR - BIT6 iMASTER CLEAR 

MREQ ■ BITO jM-LOOP ACCESS 

STRTMLOP- RLN!MCLR!MREQ jINITIATE M-LOOP 

ll*******************************************.>******************************** 
I* MAINTENANCE REGISTER * 2 BSEL2 

11RDY - BIT7 i M-LOOP READY 

I* MAINTENANCE LOOP COMMANO DEFINITIONS 

{ ««*«********«*************•**«*•****«*♦**«****«*«*******«**«*«*«************* 

REDLOC • 1 jREAD LOC. W/IN DMV-11 (SEL4) •••> B5EL6 

URILOC - 2 iURITE LOC. W/IN DMV-il - - BSEL6 •-•> CSEL4) 

REDPAG - 3 iREAD BLOCK W/IN DMV-11 - - CSEL6) -•-> CSEL4) 

WRIPAG - 4 iURITE BLOCK W/IN DMV-11 -- (SEL4^ ---^ (SEL6) 

EXECUT - 5 jSET 6502' S PC AND EXECUTE - SEL6 -••» PC 

DOTBMT » 7 iSET MAINTENANCE INTERRUPT DISABLE IN PROCESSOR 

iSTATUS --. (KB7) --> BSEL3 



D5 



CNOMEAO DMVll LINE UNIT D1AG3 
REGISTER DEFINITIONS -- USYRT 



1113 




1114 




1115 




111b 


120400 


1117 




1118 




1119 




1120 




1121 




1122 


120400 


1123 




1124 




1125 




1126 




112/ 




1128 


120401 


112^ 




1130 




1131 


000200 


7 132 


000160 


1133 


000010 


1134 


000004 


1135 


000002 


1136 


000001 


1137 




1138 




1139 


100000 


1140 


004000 


1141 


002000 


11*2 


00 I 000 


1143 


000400 


1144 




1145 


0OO001 


1146 




114' 




1148 




1149 




1150 




1151 


120402 


115? 




1153 




1154 




1155 




1156 




115/ 


120403 


1158 




1159 




1160 


000200 


1161 


000010 


1162 


000004 


1163 


000002 


1164 


000001 


11*5 




1 166 




116/ 


10C000 


31^9 


004000 


liW* 


QG2GGG 
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.SBTTL REGISTER DEFINITIONS -- USYRT 



SEQ 0029 



USYRT - 120400 



lUSYRT BASE ADDRESS - A100 CHEX) 



I t 



1 4 USYRT "RECEIVER DATA BUFFER" REGISTER - - READ ONLY 

ti +***+. + **t* + ****i + 4,*t* + + + ' <+.*** + *■* + ** + * + + * + * + ** + * + + **m*4-m + m. + + m+ + **A* + + 4- 



RDSRL 



- 120400 



t ADDRESS Or THIS REG 



i t 



t* USYRT "RECEIVER STATUS" REGISTER -- READ ONLY 



RDSRH 



RERR 

ABC 

R0« 

RABGA 

REOM 

RSOM 



RXERR 

RXOR 

RXABGA 

RXEOM 

RNSOM 

RERCHK 



120401 



{ADDRESS OF THIS REG 



{BIT DEFINITIONS ON BYTE BASIS : 

* BIT7 , ERROR CHECK 

- BIT6!BITS!BIT4 {ASSEMBLED BIT COUNT 

- BIT3 {RECEIVER OVER RUN 

• BIT2 {RECEIVED ABORT/GA CHARACTER 
» B1T1 {RECEIVED ENO-OF -MESSAGE 

- dITO {RECEIVED START -OF -MESSAGE 

{BIT DEFINITIONS ON WORD BASIS : 

- BIT15 {RECEIVED CRC/VRC ERROR 

- BIT11 {RECEIVER OVER RUN 

» BIT 10 {RECEIVED ABORT/GO AHEAD CHARACTER 

- BIT9 {RECEIVED ENO -OF -MESSAGE 

- BIT8 {RECEIVED START -OF -MESSAGE 



BITO 



{FLAG TO INVOKE RERR CHK IN SUBROUTINE RXCHAR 



,♦ USYRT "TRANSMITTER DATA BUFFER" REGISTER 



TDSRL 



120402 



lADDRESS OF THIS REG 



i i 



I* USYRT "TX STATUS AND CONTROL" REGISTER 

j | *#*******♦******#***♦***# *************************** ***+ **+**& 4 44 * *** 4*4**44 



TDSRH 



TERR 

TGA 
TAB 
TEOM 

TSOM 



TXERR 

TXGA 

TXAB 



120405 



{ADDRESS OF THIS REG 



{BIT DEFINITIONS ON BYTE BASIS : 

• BIT 7 {TRANSMITTER UNOERRUN ERROR 

• BIT3 {TRANSMIT GO AHEAD 

- BIT2 {TRANSMIT ABORT 

• BIT1 {TRANSMIT END -OF -MESSAGfc 

• BITO {TRANSMIT START -OF -MESSAGE 

iBIT DEFINITIONS ON UORD BASIS : 

- BIT15 {TRANSMITTER UNDFRRUN ERROR 
' BI'ill {TRANSMIT GO AHEAD 

• BITW iTRANbWII ABOUT 



CNOMF.AO DMVll I. INI UNIT D1AG3 
REGISTER DEFINITIONS - USYRT 



E3 
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1170 


001000 


1171 


000400 


11/2 




1175 




1174 




117* 




1 1 76 




1 1 ; ? 


120404 


1178 


000226 


1179 




1180 




1181 




1182 




113? 




1184 


120405 


1185 




1186 




1187 




1188 


000200 


1184 


000100 


1190 


000040 


1191 


000020 


1192 


OOOOIO 


1195 


000007 


1194 




1195 




1196 




1197 


1000OO 


1198 


040000 


1199 


020000 


1200 


010000 


1201 


004000 


1202 


0004 OO 


1203 


001400 


1204 


003400 


1205 


002400 


1206 


002000 


120/ 




1208 




1209 




1210 




1211 




1212 


120407 


1213 




1214 




121b 




1216 


000340 


121/ 


000020 


1218 


OOOOIO 


1219 


000007 


1220 




1221 




1222 






1223 




1224 


1220.00 



SEQ 0030 



TXEOM 
TXSOM 



- BIT9 

- BIT8 



i TRANSMIT END -OF -MESSAGE 
t TRANSMIT START -OF -MESSAGE 



j* USYRT "SYNC/SECONDARY ADDRESS" REGISTER 



PCSARL 
SYNCH 



• 120404 
- 226 



I ADDRESS OF THIS REG 

I STANDARD SYNCH CHARACTER 



J i 



j* US1RT "MODE CONTROL" 



PCSARH 



APA 

PROTO 

STRIP 

SECAD 

IDLE 

XYZ 



APAO 

DOCMP 

STRIPS 

SECADR 

IDLES 

CRCOS 

CRC16 

NOCHK 

EVRC 

OVRC 



- 120405 | ADDRESS OF THIS REG 
iBIT DEFINITIONS ON BYTE BASIS? 



- BIT7 

- BIT6 

- BIT5 
■ BIT4 
• BIT3 



j "ALL PARTIES ADDRESS" ENABLE 

I SPECIFIES BOP/CCP PROTOCOL - BOP 

{STRIP EXTRA SYNCS IN CCP MODE, SEE GA CHARS IN BOP 

j SECONDARY AODRcSS MODE BOP MODE ONLY 

{IDLE C SYNC CHAM. TRANSMISSION CONTROL 



• BIT2!BIT1!BIT0 jCRC/PARITY SELECTION CONTROL 

{BIT DEFINXTIONS ON WORD BASIS: 

BIT15 | "ALL PARTIES ADDRESS" ENABLE 

BIT 14 ,CODE FOR DDCMP MODE 

BIT13 {STRIP EXTRA SYNC'S IN CCP MODE, SEE GA CHARS IN BOP 

BIT12 {SECONDARY ADDRESS MOOE -- BOP MODE ONi.Y 

BIT 11 {IDLE C SYNC CHAR, TRANSMISSION CONTROL 

BIT8 {CODE F0« CRC-CCITT-0 SELECTION 

BIT9!BIT8 {CODE FOR CRC - 16 SELECTION 

BIT10!BIT9!BIT8 i CODE FOR NO ERROR CHECKING 

BIT10JBIT8 {CODE FOfl VRC EVEN CHECK 

BIT 10 ,CODE FOR VRC ODD CHEC>< 



,* USYRT "DATA LENGTH SELECT" REGISTER 



PCR 



TXDL 
EXAOD 
ExCON 
RXDl. 



- 120407 {ADDRESS OF THIS REG 
{BIT DEFINITION^. 

- BIT 7JBIT6IBIT5 {TRANSMIT DATA LENGTH SELECTION 

- BH4 ,EX TENDED ADDRESS FIELD ■■ - N01 USED 0« TESTED 



BIT3 



EXTENOED CONTROL 



LD 



NOT USED OR TESTED 



BIT2!BIT1!BIT0 {RECEIVER DATA LENGiH SELECTION 



{♦ USfRT STATUS REGISTER ( ADDR . A4001 

USIAIR * 122000 jUSYHI HIATUS REUi&IkR AQDKE.5S * AAUlQ (HEX) 



1226 



iBIT DEFINITIONS! 



CNOMEAO DMVlt LIf.;t UNIT D1AG3 
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1227 




122S 


000200 


1229 


000100 


1230 


000040 


1231 


000020 


1232 


000010 


1233 


000004 


.1234 


000002 


1235 


000001 



RDA 


- BIT7 


TBMT 


- BIT6 


RXACT 


■ BITS 


RSA 


- BIT4 


TSO 


- BITS 


TXACT 


- BIT2 


TXU 


- BIT1 


SFR 


- BITO 



K3 
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{RECEIVER DATA AVAILABLE-" 
I TRANSMITTER BUFFER EMPTY 
(RECEIVER ACTIVE 
RECEIVER STATUS AVAILABLE 
{TRANSMITTER SERIAL OUTPUT 
I TRANSMITTER ACTIVE 
{TRANSMITTER UNDERRUN 
I SYNC/FLAG RECEIVED 



SEQ 0031 



b5 
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6522 VIA CHIP 

.SBTTL REGISTER DEFINITIONS -- 6522 VIA CHIP 

VIA • 120000 |VIA BASE ADDRESS - AOOO (HEX) 



REGISTER DEFINITIONS 



SEQ 0032 



1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

124 7 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

126? 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

12/3 

1274 

12/5 

1276 

12// 

1278 

1279 

1280 

1281 

1282 

128? 

1284 

1285 

1286 

128 7 

1288 

1289 

1290 

1291 

1292 

1 293 



120000 



120000 

0CO200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
000000 



120001 

000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



1200C2 



120003 



{ 5 ********************************^**********************************+******** 
j* MODEM C MAINTENANCE CONTROL - "ORB" 8 BIT PORT B -- WRITE ONLY 

..****************************** ******* *************************************** 



VIAORB 



120000 



NULCLK - 


BIT7 


RXEN 


• BIT6 


TXEN 


■ BIT5 


DTR 


■ BIT4 


RTSND 


• BIT3 


HDX 


• BIT2 


TTLOOP « 


■ uiri 


PRESET « 


■ BITO 


DTRL 


• 



j ADDRESS OF THIS REGISTER --HEX - AOXO 

j "NULL CLK L" -- NULL CLOCK 

i"RXENL" -- USYRT RECEIVER ENABLE 

j"TXENL" -- USYRT TRANSMITTER ENABLE 

j "DTR" -- DATA TERMINAL READY 

{"RTSND" -- REQUEST TO SEND 

I "HDX" -- HALF DUPLEX 

l M SELECT TTL LEVEL LOOPBACK" 

j "PRESET H" -- 

{DTR IS ASSERTED LOW 



! 1 



j* MODEM STATUS REGISTER -- "ORA" 8 BIT PORT A -- READ ONLY 

j;**************************************************************************** 

j ADDRESS OF THIS REGISTER -- HEX * A0X1 

j "RING H" -- 

{"CARRIER H" 

T'MODEM RDY H" -- 

{"BAUD RATE SWITCH - (19.2K/56K) 

{"CTS H -- CLEAR TO SEND 

{"TEST MODE H" - • 

j "RCV DATA H" -- 

{ SELECT USYRT INT LOOPBACK "SELECT BIT** 



;* DATA DIRECTION FOR PLKT B -- "DDRB" •- READ/WRITE 

•j**************************************************************************** 



VIAMS 


120001 


RING 


BIT 7 


CARIER ' 


■ BIT6 


MDMRDY - 


■ BIT5 


SPEED 


■ BIT4 


CTS 


* BIT3 


TM 


• BIT2 


RCVDAT « 


• BIT1 


UMAINT ' 


• BITO 



VIADPB 



120002 



{ADDRESS OF THIS REGISTER -- HEX - A0X2 



ALL BITS ARE DEFINED THE SAME: 

THE BIT SETTING DEFINED THE DIRECTION OF ITS RELATED BIT IN BIT PORT B 



INITIALLED TO 377 (HEX - FF) 



PORT B IS READ/WRITE 



j ;************************************************************ ******* ********* 

{♦ DATA DIRECTION FOR PORT A "DDRA" - READ/UIRITE 

•j**************************************************************************** 



VIADPA 



120003 



{ADDRESS OF THIS REGISTER 



HEX - A0X3 



: ALL BUS ARE DEFINED THE SAME.* 

i THE BIT SETTING DEFINED THE DIRECTION OF ITS RELATED BIT IN BIT PORT A 



-13 



CNDMEAO DMV11 LINK UNIT 
REGISTER DEFINITIONS -- 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 120004 

1304 

130") 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 120005 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 120006 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

133 7 
1338 

1339 120007 

1340 

1341 

1342 

134 5 
1344 
1345 
1346 
H4 / 
1548 
154S> 

13^0 120010 



DIAG3 MACRO M1200 22-FE8 84 15;48 PAGE 17-1 
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SEQ 0033 



INITIALIZED TO 001 (HEX • 01 ) - - P0R1 A IS READ ONLY (EXCEPT FOR 

BITO WHICH ENABLES USYRT INTERNAL LOOPBADO 



•4********4444**4***444444* 4444444444444444444*44*4>*********-**************** 

♦ TIMER 1 LOU ORDER (LATCH £ COUNTER) -• "T1L-L" £ "T1C-L." - WRITE £ READ 

;4*4*44444444444444444444*4444444444444*444*44**4*********44***4*4*44*4**4444 



V1AT1A 



120004 



} ADDRESS OF THIS REGISTER 



HEX « A0X4 



; WHEN WRITING, LOW ORDER LATCH IS LOADED, 
; WHEN READING, LOW ORDER COUNTER IS READ. 



..*****«*** + ***************************************************************«.** 
;* TIMER 1 HIGH ORDER COUNTER £ TRIGGER -- "T1L-H AND TRIGGER" £ "TlC-H" 
j* -- WRITE £ READ 
; j*44**44***4*~*4444**4444*4*+*444**4***44*****************************+*4**** 



VIAT1B 



120005 



{ADDRESS OF THIS REGISTER 



HEX - A0X5 



WHEN WRITING; HIGH ORDER LATCH IS LOADED, BOTH LOW £ HIGH ORDER LATCHES 
ARE LOADED INTO THE COUNTER, AND THE COUNTER IS STARTED. 

WHEN READING, THE HIGH ORDER COUNTER IS READ. 



•;44*********************************************444444444444444444444******** 

j* TIMER 1 LOW ORDER LATCH -■ "T1L-L" • READ/WRITE 

..*4***44***************4*444**************44********************************* 



VIATIC 



120006 



; ADDRESS OF THIS REGISTER 



HEX - A0X6 



: THE LOW ORDER LATCH IS READ OR LOADED. THIS LATCH IS USED TO LOAD THE 
; COUNTER WHEN T1M0DE (IN VIAACR) - 3 



; t 



;* TIMER 1 HIGH ORDER LATCH - •■ "TU.-H" - - READ/WRITf 

;• 4*****4******* ***************4**-***** ****************************** ********* 

VIAT1D * 12000/ j ADDRESS OF THIS REGISTER HEX » ftOX/ 

j THE HIGH ORDER LATCH IS READ OR LOADED. THIS LATCH IS USED TO LOAD THE 



J 



COUNTER WHEN T1M0DE (IN VIAACR) 



;]**************************************************************************** 

j* TIM*W ,' I OW ORDER (LATCH £ COUNTER) - "T2t I" £ "T2C-1." - WHITt £ Rl AD 

..♦♦♦♦ + ++ + ***f«»4.*,*4444***4* + * + + +* + **#** + **«' + + *** + ****** + *******# + ***** + *.****.* 



V1AT2A 



120010 



1 ADDRESS OF THIS REGISTER — HEX * *0W 



1 3 



CNDMEAO DMVU LINE UNIT 

REGISTER DEFINITIONS -- 

1551 
1 XV 

1353 

1354 

1355 

1356 

135 7 

1358 

135^ 

1360 

1361 

136? 120011 

1363 

1364 

1365 

1366 

136/ 

1368 

5 370 
1371 

15 72 

13 73 120012 

1374 

13 75 

13 76 

1377 

1378 

3 379 

1380 

1381 

1382 

1383 120013 

1384 

1385 000300 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 000040 

139b 

139 7 

1398 

1399 

1400 000034 

1401 

1402 

1403 

1404 

1405 

140t. 

1407 



DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 17-2 
6522 VIA CHIP 



l WHEN WRITING, LOW ORDFR LATCH IS LOADED 
s WHEN READING, LOW ORDER COUNTER IS READ 



{f4+4*444444444444444444444444444444444444444*44*44444+4A¥*4'44444444*44*44444 

l* TIMER 2 HIGH ORDER COUNTER 6 TRIGGER -- "T2L-H AND TRIGGER" 6 "T2C-H" 
5* -- WHITE £ READ 



SEQ 0034 



VIAT28 • 120011 



t ADDRESS OF THIS REGISTER -HEX - A0X9 



I WHEN WRITINGj HIGH ORDER LATCH IS LOADED, BOTH LOW £ HIGH ORDER LATCHES 
j ARE LOADED INTO THE COUNTER, AND THE COUNTER IS STARTED, 

} WHEN READING, THE HIGH ORDER COUNTER IS READ. 

; ;4«*444444 4+44*44444444*444+444444444+*4**444+444444*44*4444*4*4**444+t4444** 

}♦ SHIFT REGISTER - "SR" -- READ/WRITE 

;;4444444444444444**+*****44*4**4444*44444444444444444444*44444444444444444*++ 

VIASR - 120012 iADDRESS OF THIS REGISTER --HEX - AOXA 

; SHIFTING IS CONTROLLED BY THE SETTING OF VIASRC (ACR2 •--> ACR4 ) IN VIAACR 



;;444444444444444444444444444444444444444444444444*444444*4444444444444444444* 

j* AUXILIARY CONTROL REGISTER - "ACR" -- READ/WRITE 

jj444*4444*444444444*44444444444444444444444444444*44*444*44444444444444444444 

{ADDRESS OF THIS REGISTER - HEX « AOXB 
l CONTROL THE MODE OF TIMER 1 

PB7 DISABLED - ONLY TITO IN VIAIFR REFLECTS TIMEOUT 
PB7 6 TITO REFLECT TIMEOUT 

TIMER 1 IN ONE -SHOT MODE 

TIMER 1 IN CONTINUOUS SQUARE WA'-.E MODE 

i CONTROLS THE MODE OF " IMER 1 

PULSE COUNTING MODE 

INTERVAL TIMER MODE 

{CONTROLS THE MODE OF THE SHIFT REGISTER 



VIAACR 


■ 120013 




T1M0DE 


- BIT7JBIT6 






iBIT 
{ 

I 1 


7: 




jBIT 
; 
l 1 


6: 


T2M0DE 


• BITS 

i o 
: i 





SRMODE 



BIU1BIT35BIT2 



i SR DISABLED 

; 1 SHIFT IN UNDER CONTROL OF T2. SMFT PULSES GEN' D ON CB1 

j 2 SHIFT IN AT SYS. CLOCK RATE, SMFT PULSES GEN' D ON CB1 

i * SHIFT IN UNDER CONTROL. OF EXTERNAL INPUT PULSES 

; 4 SHIFT OUT « - KREE RUNNING RAIF CONTROLLED B> 12 

i S SHIFT OUT -• RA1E CONTROLLED Of T2 -- PULSES ON CB1 



J 3 
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SEQ 0035 



1408 




1409 




1410 




1411 


000002 


1412 


000001 


1413 




1414 




1415 




1416 




1417 




1418 




1419 




1420 




1421 


120014 


1422 




1423 


000340 


1424 


000020 


1425 


000016 


1426 


000001 


1427 




1428 




1429 




1430 




1431 




1432 




1433 




1434 


120015 


1435 




1436 


000200 


1437 




1438 




14 39 




1440 




1441 




1442 


000100 


1443 


000040 


1444 


000020 


1445 


000010 


1446 


000004 


144/ 


000002 


1448 


000001 


1449 




1450 




1451 




1452 




1453 




1454 




1455 




1456 


120016 


14 57 




1458 


000200 


1459 




1460 




1461 




1462 




14*,'; 




1464 





PBLENB 
PALENB 



BIT.l 
HITO 



j 6 SHIFT OUT -- SYS. CLOCK RATE -- PULSES ON CBl 

} 7 SHIFT OUT -- UNDER CONTROL OF PULSES APPLIED TO CBl 

iPB LATCH CONTROL -- 1 ENABLES LATCH 
iPA LATCH CONTROL -- 1 ENABLES LATCH 



. +. + + **.± + + + 4.* + + *, + + + + ± + + + *± + + + *±*.A+.±± + +.* + * + + +,± + + +, + + ** + + *4.*.m + 4.mm*± + + * + + + + + 
* PERIPHERAL CONTROL REGISTER -- "PCR" -- READ/WRITE 



VIAPCR 



120014 



CB2CTL - BIT7!BIT6!BIT5 

CB1CTL - BIT4 

CA2CTL - BIT3JBIT2IBIT1 

CA1CTL « BITO 



j ADDRESS OF THIS REGISTER --HEX * AOXC 

jCB2 MODE SELECT 

iCBl MODE SELECT 

{CA2 MODE SELECT 

iCAl MODE SELECT 



* INTERRUPT FLAG REGISTER -- "IFR" -• READ ONLY 



VIAIFR - 120015 
FLGIRQ - BIT7 



I ADDRESS OF THIS RFGISTER -- HEX - AOXD 

{SET WHEN A FLAG IN THIS REG. GOES HIGH AND 
j ITS CORRESPONDING BIT IN VIAIER IS SET. 
j (I.E. VIATFR IS THE ENABLE REGISTER FOR THE 
5 FOR THE SETTING OF IRQ AND THE ISSUEANCE OF 
{AN INTERRUPT TO THE 6502 WHEN IRQ IS SET.) 

j TIMEOUT OF TIMER 1 

j TIMEOUT OF TIMLK .' 

{ACTIVE TRANSITION OF PIN 18 (CBl) 

{ACTIVE TRANSITION OF PIN 19 CCB2) 

{COMPLETION OF 8 SHIFTS 

{ACTIVE TRANSITION OF PIN 40 CCAl) 

{ACTIVE TRANSITION OF PIN 39 (CA2) 



s* INTERRUPT ENABLE REGISTER -- "IER" - READ/WRITE 



FLGT1 


«• 


BIT6 


FLGT2 


■ 


BIT5 


FLGCB1 


» 


BIT4 


FLGCB2 


■ 


BIT3 


FLGSR 


- 


BIT2 


FLGCA1 


m 


BIT1 


FLGCA2 


u 


BITO 



VIAIER * 120016 
INTSC ■* BIT7 



{ADDRESS OF THIS REGISTER HEX - AOXE 

{CONTROLS THE SETTING OR CLEARING OF BITS IN 
{THE REST OF IER. IF • THE OTHER BITs IN 
{THIS REG., IF SET, UILL CLEAR THEIR RESPECTIVE 
;BITS IN THE INT. ENMB . REG,. IF * 1 , THE 
{RESPECTIVE BITS WILL BE SET. 



i WHEN WRITING THIS REG., THE COMMENT ABOVE HOLDS. 
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SEQ 0036 



1465 
1466 
1467 
1468 
1469 
1470 
14 71 
14 72 
14 73 
1474 
14 75 
14 76 
1477 
1476 
1479 
1480 
1481 
1482 
1483 
1484 
1485 



WHEN READING THIS REG. , THE CURRENT STATE OF THE INT. ENABLE REG. IS RETURNED. 
THE BIT ASSIGNMENTS ARE THE SAME AS FOR VIAIFR AS DEFINED ABOVE, 



;* OUTPUT REGISTER A -- "ORA" READ ONL i (OR READ/WRITE UNDER CONTROL OF "DDPA") 



120017 



VIAORA 



120017 



{ADDRESS OF THIS REGISTER 



HEX • AOXF 



THIS ADDRESS ACCESSES THE SAME DA I A AS "VIAMS" EXCEPT THAT NO "HANDSHAKING 1 
WILL TAKE PLACE (I.E. THERE IS NO CHANGE IN IRQ OR CA2 AS A RESULT OF 
READING ORA THROUGH THIS ADDRESS) 

} THE BIT ASSIGNMENTS ARE THE SAME AS FOR "VIAMS" ABOVE. 



CNDMEAO DMV11 LINE UNIT DIAG3 
REGISTER DEFINITIONS -- MISC 



1487 




1488 




1459 




14S0 




1491 




1492 




1495 


121000 


1494 


121400 


1495 




1496 




1497 




1498 


100000 


1499 


001000 


1500 




1501 


000002 


1502 


000001 


1503 




1504 


040000 


1505 


001000 


1506 




1507 


000200 


1508 




1509 


100000 


1510 


040000 


1511 


020000 


1512 





L3 
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.SBTTL REGISTER DEFINITIONS 



SEQ 0037 



MISC 



>♦ SUITCH PACKS 



SWPBOT » 121000 
SWPDDCMP - 121400 

{MISCELLANEOUS EQUATES 



TCCHEK • 
RAMADR - 


BIT15 
• 001000 


EIAV35 « 
INTGRL * 


' BIT1 
■ BITO 


NORXEN • 
NOLOOP - 


- BIT14 

» BIT9 


NCTBMT > 


■ BIT7 


NOCRDA ' 
NFCRDA • 
NCRACT 


• BIT15 
■ BxT14 

* BIT13 



{"BOOT ADDRESS" SWITCH PACK [A200'j 
{"DDCMP ADDRESS" SWITCH PACK [A300] 



{FLAG TO REQUEST H3254.5 CHECK 

{STARTING ADRS OF RAM PAGE 2 (ADRS 0200 HEX) 

{SELECT V.35 OR EIA 4Z3/232C 
{SELECT INTEGRAL MODEM 

{KILL RXEN DURING "INITRN" 
{KILL TTLOOP DURING "INITRN" 

{DISABLE INITIAL TBMT-0 CHECK IN TXCHAR 

{DISABLE INiTIAL RDA-0 CHECK IN RXCHAR 

{DISABLE FINAL RDA-1 CHECK IN RXCHAR 

{DISABLE RXACT-1 CHECK AFTER CLOCKING (RXCHAR) 
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1772 
1773 
1774 
17713 

1776 
1777 
1778 
1779 

1780 
1781 
1782 
1783 
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SEQ 0038 



1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 



002172 
002172 
002172 
002174 
002176 
002200 



002202 
002202 
002204 
002204 
002206 
002206 
002210 
002210 
002212 
002212 
002214 
002214 
002216 
002216 
002220 
002220 
002222 
002224 
002226 
002230 
002232 
002234 
002236 
002240 

002242 



002262 



OOOCOO 
000000 
000000 
000000 



000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OOQQOO 



.SBTTL GLOBAL DATA SECTION 

l ///.'.' '///// ////////// '/////////////////////////// ///////// /////////////////// 

;/ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
;/ IN MORE THAN ONE TEST. 

• «. ♦ ***** ************************************** ******* ****************** ** *** * + 

I CONTROL BLOCK FOR STACKED ERROR MESSAGES 

;--*************************************************************************** 



ERRTBL 



LJERRTBL: : 



ERRTYP: 


: .WORD 





ERRNBR: 


: .WORD 





ERRMSG? 


. WORD 





ERRBLKt 


: .WORD 






I**************************************************************************** 

;* STORAGE FOR DEVICE REGISTERS 

{ j ******* ************* ******************************************************* 

{STORAGE FOR DEVICE CSR REGISTERS 



WSRO 






BSRO 


.WORD 





WSR2 






BSR1 


.WORD 





WSR4 






ESR2 


.WORD 





WSR6 






BSR3 


.WORD 





WSR1C 


): 




BSR4 


.WORD 





WSRl< 


5 . 




BSR5 


.WORD 





WSR1' 


\i 




BSR6 


: .WORD 





wsRie 






BSR7 


:' .WORD 





BSRK 


>. .WORD 





BSR1 


L: .WORD 





bsri; 


?: .WORD 





bsri; 


5: .WORD 





BSRI' 


1; .WORD 





BSRI! 


5 * . WORD 





BSRK 


S: .WORD 





BSRI 


7 j .WORD 





UREG« 


S: .BLKW 


8. 


VREG! 


St ♦BLKW 


10. 



;THE FIRST 7 ARE FOR THE Ub^RT'S ACTUAL 

j REGISTERS. THE LAST ONE IS FOR THE STATUS 

5 REG. (USTATR). 

} STORAGE FOR VIA REGISTERS FOR PRINTOUT 
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SEQ 0039 



1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 



002322 
002324 
002326 
002330 
002332 
002334 
002336 
002340 
002342 
002344 
002346 

002350 
002352 
002354 
002356 
002360 
002362 
002364 
002366 
002370 
002372 
002374 
002376 
002400 
002402 
002404 
002406 
002410 
002412 
002414 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



;***************** 

t* MISCELLANEOUS S 

; ***************** 



TDATA: 


.WORD 





GDf.TA: 


.WORD 





BDATA; 


.WORD 





XDATA: 


.WORD 





SCRACH- 


.WORD 





L0GDEV 


.WORD 





REGNUM 


.WORD 





PSTACK 


.WORD 





PRIOR: 


.WORD 





SU6RPC 


.WORD 





INTFLG 


.WORD 





ERRFLG 


.WORD 





TIMFLG 


.WORD 





RET ADR 


.WORD 





REDBYT 


.WORD 





WRIBYi" 


.WORD 





LOAOAT 


.WORD 





GOOOAT 


.WORD 





BADDAT 


.WORD 





FRSTIM 


. .WOK.. 





SAVE4: 


, WORi) 


I , 


5AVE6: 


.WORD 


I., 


ERR0R1 


. .WORD 





CHPTYP 


.WORD 





SAVLEN 


: .WORD 





DEVMAP 


: .WORD 





DEVPTR 


: .WORD 





UNIT: 


.WORD 





STARES 


: .WORD 





TSTNUM 


t .WORD 






****************************************************** 

TORAGE 

************** ********************* -•****** ************ 

TEST DATA 

GOOD DATA 

BAD DATA 

EXCLUSIVE -OR BETWEEN GOOD AND BAD DATA 

GEN'L PURPOSE SCRATCH WORD 

LOGICAL DEVICE NUMBER 

CONTAINS A DEVICE REGISTER NUMBER 

CONTAINS BASE LEVEL PROGRAM STACK POINTER 

CPU PRIORITY FOR PRINTOUT 

PC OF SUCR CALL FOR ERROR REPORTS 

INTERRUPT RECEIVED FLAGS 

GIT FOR TX, BIT 1 FOR RCV 
SUBROUTINE ERROR FLAG 
EVENT TIME-OUT FLAG 
SU6R ERROR RETURN ADDRESS 
LO BYTE CONTAINS BYTE READ FROM LU REG 
LO BYTE CONTAINS BYTE TO LOAD INTO LU REG 
CONTAINS TEST DATA LOADED INTO REG 
STORAGE FOR EXPECTED DATA 
STORAGE FOR ACTUAL DATA 
FLAG-0 IF PROGRAM JUST LOADED 
SAVE LOC 4 HERE C ERROR TRAP VECTOR) 
5AVE LOC 6 HERE (ERROR TRAP VECTOR) 
SUBR ERR. BIT FLAGS (DEF'D IN GLOBAL EQUATES) 
USYRT CHIP TYPF. -0 FOR SMC, ELSE »l 
SAVED TX AND RCV CHAR LENGTHS 
BIT MAP OF ACTIVE DEVILS 
DEVICE MAP BIT POINTER 
CONTAINS UNIT NO. (1 TO N) 
jFLAG TQ SHOW NO. OF PASSES SINCE STA OR RES 
iNO. OF CURRENT TEST (FOR SOME TESTS) 
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1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1865 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

i882 

1883 

188' 

1885 

1886 

1887 

1888 

1889 

1890 



002416 
002416 
002416 
002420 
002422 
002422 
002424 
002426 
002426 
002430 
002432 
002432 
002434 
002436 
002436 
002440 
002442 
002442 
002444 
002446 
002446 
002450 
002452 
002452 
002454 

002456 
002460 
002462 
002464 

002466 
002470 
0024 72 
002474 



160020 
160021 

160022 
160023 

160024 
160025 

160026 
160027 

160030 
160031 

160032 
160033 

160034 
160035 

160036 
160037 

000300 
000304 
0O0240 
000000 
000000 
000000 
000000 
000001 



MACRO M1200 22- 


FEB -84 


15:48 f 


, t ******+*6 CURRENT Oi 


BSELO} 






SELO; 






MPCSRj 


.WORD 


160020 


BSELlj 


.WORD 


160021 


BSEL2s 






SEL2 5 


.WORD 


160022 


BSEL3t 


.WORD 


160023 


BSEL4? 






SEL4 : 


.WORD 


160024 


BSEL5; 


.WORD 


160025 


BSEL6; 






3EL6: 


.WORD 


160026 


BSEL7? 


.WORD 


160027 


BSELlOt 






SELIO: 


.WORD 


160030 


BSEL11: 


.WORD 


160031 


BSEL12: 






SEL12; 


.WORD 


160032 


BStLlS; 


.WORD 


160033 


BSLL14: 






SEL14: 


.WORD 


160034 


RSEH5: 


.WORD 


160035 


BSEL16: 






SEL16: 


.WORD 


160036 


BSEL17- 


.WORD 


160037 


MPIVEC: 


.WORD 


300 


MPOVEC: 


.WORO 


304 


MPRIOR: 


.WORD 


240 


LUSWI1: 


.WORO 





LUSWI2: 


.WORD 





BRDTYPt 


.WORD 





TSTCON? 


.WORD 





BORATE t 


• WORD 


1 
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SEQ 0040 



PARAMETERS ***♦♦*♦♦**♦♦♦ 



POINTER 
POINTER 

POINTER 
POINTER 

POINTER 
POINTER 

POINTER 
POINTER 

POINTER 

POINTER 

POINTER 
POINTER 

POINTER 
POINTER 

POINTER 
POINTER 



TO DMV11 CSR'S 
TO BSELL 

TO SEL2 
TO BSEL3 

TO SEL4 
TO BSEL5 

TO SEL6 
TO BSEIV 

TO SELIO 
TO BSELll 

TO SEL12 
TO BSEL13 

TO SEL14 
TO BSEL15 

TO SEL16 
TO BSEL17 



DMV11 INPUT INTERRUPT VECTOR 
DMV11 OUTPUT INTERRUPT VECTOR 
DMVU DEVICE PRIORITY 
LINE UNIT SWITCH PACK *\ 
LINE UNIT SWITCH PACK 02 
0-M8064, 1-M8053/V.35.2-M8033/EXA 
TEST CONNECTOP INOICATOR 
BAUO RATE ■ 56 K 

• 19,2 K 

1 « 56 K 



CNOMF.AO DMVll I. INI. UNIT D1AG3 
GLOBAL. DATA SECTION 
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SEQ 0041 



1692 
1895 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1925 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 

1935 



0024 76 
002500 
002502 
002504 
002506 
002510 
002512 
002514 



002516 



002526 
002530 
002532 
002534 
002536 
002540 
002542 
002544 



002546 
C02550 
002552 
002554 
002556 
002560 
002562 
002564 



002566 
002566 

002567 
002570 
002571 
002572 
002573 
002574 

002575 



120400 
120401 
120402 
120403 
120404 
120405 
120407 
122000 



000000 
OOOOOO 
000000 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



37 7 
000 
000 
360 
000 
000 
34 7 

200 



I TABLE OF USYRT REGISTER ADDRESSES 



USYREGs .WORD 


120400 


.WORD 


120401 


.WORD 


120402 


.WORD 


120403 


.WORD 


120404 


.WORD 


120405 


.WORD 


120407 


.WORD 


122000 



I ADDRESS 
j ADDRESS 
I ADDRESS 
I ADDRESS 
j ADDRESS 
i ADDRESS 
i ADDRESS 
j ADDRESS 



OF RDSRL 

OF RDSRH 

OF TDSRL 

OF TDSRH 

OF PCSARL 

OF PCSARH 

OF PCR 

OF USYRT STATUS 



REG 



,***♦* STORAGE FOR DATA READ IN ADDRESS TESTS ***♦* 
REDDAT; .BLKB 8. 



!!*♦♦♦ GEN' I PURPOSE SCRATCH STORAGE ***♦* 


REGO' 


.WORD 







REG1 


.WORD 







REG2 


.WORD 







RFG3 


.WORD 







REG4 


.WORD 







REG5 


.WORD 







REG6 


.WORD 







REG7 


.WORD 







***♦' 


► ♦ SCRATCH 


STORAGE 


FOR MESSAGE REPORTING ♦♦♦♦* 


TMPO 


.WORD 







TfiPl 


.WORD 







TMP2 


.WORD 







TMP3 


.WORO 







TMP4 


.WORD 







TMP5 


.WORO 







TMP6 


.WORD 







TMP7 


: .WORD 







1 ••*' 


>♦ INBUS LU 


REG BIT 




UPBI 


rs: 








.BYTE 


377 


,MASK FOR RDBR 




.B>TE 


000 


jMASK FOR RDSR 




.BTTE 


000 


jMASK FOR TDBR 




■ BfTE 


360 


,MASK FOR TDSR 




.BYTE 


000 


jMASK FOR SSAR 




,B>TE 


000 


jMASK FOR PCSAR 




.BYTE 


34 7 


jMASK FOR PCR 


TDSRf 


^RWi .BYTE 


200 


iTDSR NON-R/W BITS 



CNDMEAO DMVll I INt UNIT D1AU3 
DATA TEST PATTERNS 



1957 






195a 






1959 


O0?576 




1940 


00?576 


377 


1941 


00?577 


377 


194? 


00?600 


377 


1943 


002601 


377 


1944 


00?60? 


377 


1945 


002605 


377 


1946 


002604 


377 


1947 


002605 


366 


1948 






1949 






1950 


002606 




1951 


002606 


000 


195? 


002607 


000 


1955 


00?610 


000 


1954 


002611 


000 


1955 


002612 


000 


1956 


002613 


000 


1957 


002614 


000 


1958 


002615 


110 


1959 






1960 






1961 


002616 




196? 


002616 


000 


1965 


002617 


001 


1964 


002620 


003 


1965 


002621 


004 


1966 


002622 


005 


1967 


002625 


007 


1968 


002624 


100 


1969 


002625 


101 


1970 


002626 


103 


1971 


002627 


104 


197? 


002650 


105 


1975 


002651 


10/ 


1974 


002632 


000 


19/5 


002653 


017 


1976 


002634 


0?7 


1977 


v'32635 


041 


1978 


002636 


200 


19/9 


002637 


277 


1980 


002640 


103 


1981 


002641 


]44 


198? 


00264? 


115 


1985 


00264 3 


157 


1984 


002644 


000 


1985 






1986 






1987 


002b45 




1988 


002645 


125 


198? 


00264b 


25? 


1990 


00264 / 


000 


1991 


002650 


^77 


199? 


002651 


001 


W5 00^65? 


QVd 
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,SBTTL 


DATA TEST PAT1 


■ERNS 


••♦*♦* 


DATA PATTERN E 


***** 


PATEs 










.BYTE 


3/7 






.BYTE 


377 






.BYTE 


377 






.BYTE 


377 






.BYTE 


377 






.BYTE 


377 






.BYTE 


377 






.BYTE 


366 




t ***** 


DATA PATTERN F 


***** 


PATFj 










.BYTE 


000 






.BYTE 


000 






.BYTE 


000 






.BYTE 


000 






.mYIE 


000 






.E-YfF 


000 






.<*YTE 


000 






.'rlYTE 


no 




J * . •* w 


UATA PATTERN G 


***** 


^ATU; 










.GiTE 


000 






.Of TE 


001 






.BYTE 


003 






.BYTE 


004 






.BYTF 


005 






.BYTE 


007 






.BYTE 


100 






.BYTE 


101 






.BYTE 


103 






.BYTE 


104 






.BYTE 


105 






.BYTE 


10/ 






.BYTE 


000 






.BYTE 


01/ 






.BYTE 


02/ 






.BYTE 


041 






.BYTE 


200 






.BYTE 


277 






.BYTE 


105 






.BYTE 


144 






.BYTE 


115 






.BYTE 


157 






.BYTE 


000 




; i » • ♦ * 


DATA PATTERN X 


***** 


HAiXj 










.BYTE 


125 






.BYTE 


252 






• BYTE 


000 






.BtTF- 


377 






.BYTF 


001 






.am 


QQd 





SEQ 0042 



CNDMEAO DMV11 LINE UNIT DIAG3 
DATA TEST PATTERNS 



1994 


002653 


004 


1995 


002654 


010 


1996 


002653 


020 


1997 


002656 


040 


1998 


002657 


100 


1999 


C02660 


200 


2000 


002o61 


3/6 


2001 


X)2662 


375 


2002 


X>2663 


373 


2003 


002664 


367 


2004 


002665 


35, 


200!. 


002666 


337 


2006 


002667 


27 7 


2007 


002670 


177 


c.\- ^3 






2009 


0026 71 


125 


2010 


0026^2 


252 


2011 


002673 


000 


2012 


002674 


377 


2013 


0026/5 


001 


2014 


002676 


002 


2015 


00267 7 


004 


2016 


002 700 


010 


2017 


002/01 


020 


2018 


002702 


040 


2019 


002703 


100 


2020 


002704 


200 


2021 


002705 


3/6 


2022 


002706 


375 


2023 


002707 


373 


2024 


002710 


367 


2025 


0027 U 


357 


2026 


002712 


337 


2027 


002713 


277 


2028 


002714 


177 


2029 






2030 


002715 


125 


2031 


002716 


252 


2032 


002/W 


ooo 


2033 


002/20 


377 


2034 


002721 


001 


2035 


002722 


002 


2036 


002723 


004 


203 7 


002/24 


010 


2038 


002 725 


020 


2039 


002 726 


040 


2040 


002727 


100 


2041 


0027 30 


200 


2042 


002731 


3/6 


204 3 


002 7 32 


375 


2044 


002733 


373 


2045 


002/34 


36 7 


2046 


002735 


35/ 


204 7 


002 7 36 


337 


2048 


002737 


277 


2049 


002 740 


177 


2050 













E4 
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15*48 
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.BYTE 


004 






.BYTE 


010 






.BY IE 


020 






.BYTE 


040 






.BYTE 


100 






.BYTE 


200 






.BYTE 


376 






.BYTE 


375 






.BYTE 


373 






.BYTE 


367 






.BYTE 


357 






.BYTE 


337 






.BYTE 


27/ 






.BYTE 


177 






.BYTE 


125 






.BYTE 


252 






.BYTE 


000 






■ BYTE 


377 






.BYTE 


001 






.BYTE 


002 






.BYTE 


004 






.BYTE 


010 






.BYTE 


020 






.BYTE 


040 






.BYTE 


100 






.BYTE 


200 






.BYTE 


376 






.BYTE 


375 






.BYTE 


373 






.BYTE 


367 






.BYTE 


357 






.BYTE 


337 






.BYTE 


21? 






.BYTE 


177 






.BYTE 


125 






.BYTE 


252 






■ BYTE 


000 






.BYTE 


377 






.BYTE 


001 






.8YT 


002 






.BYTE 


004 






.BYTE 


010 






,BiT£ 


020 






.BYTE 


040 






.BYTE 


100 






.BYTE 


200 






.BITE 


37b 






.BYTE 


375 






.BYTE 


373 






.BYTE 


36 7 






.BYTE 


35/ 






.BYTE 


33? 






.nut 


27/ 




tf»AU; 


♦ BYTE 


1/7 





SEQ 0043 



CNOMF.AO 0MV11 LINE UNIT D1AG3 
DATA TEST PATTERNS 
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SEQ 0044 



2051 






2052 


002741 




2053 


002741 


000 


2054 


002742 


04i 


2055 


002743 


102 


2056 


002744 


143 


2057 


002745 


204 


2058 


002746 


245 


2059 


00274 7 


306 


2060 


002 750 


34 7 


2061 


002751 


000 


2062 


002752 


001 


2063 


002753 


002 


2064 


002 754 


004 


2065 


002755 


0^0 


2066 


002 756 


100 


206/ 


002757 


200 


2068 


001760 


000 


2069 


002761 


346 


2070 


002 762 


345 


2071 


002763 


343 


2072 


002764 


307 


2073 


002765 


247 


2074 


002766 


147 


2075 


002767 


34 7 


2076 


002770 


242 


207 7 


0027?1 


i05 


2078 


002772 


34 7 


207 9 


002773 


010 


2080 


002774 


020 


2081 


002 7 75 


367 


2082 


0027 76 


357 


208 3 


002777 


030 


2084 


003000 


02 7 


2085 


003001 


377 


2086 






2087 






2088 


003002 




2089 


003002 


000 


2090 


003003 


000 


2091 


003004 


001 


2092 


003005 


002 


2093 


003006 


004 


2094 


003007 


020 


2095 


003010 


040 


2096 


0030.11 


010 


2097 






2098 






2099 


003012 




2100 


003012 


000 


2101 


003013 


3/7 


2102 


003014 


3 -'6 


2103 


003015 


?">5 


2104 


003016 


37 3 


2105 


00301? 


3/6 


2106 


003020 


17 7 


2107 


003021 


377 



,♦♦*♦♦ DATA PATTERN I ***** 
PAT 1 1 



.BYTE 


000 


.BYTE 


041 


.BYTE 


102 


.BYTE 


143 


.BYTE 


204 


.BYTE 


245 


.BYTE 


306 


.BYTE 


347 


.BYTE 


000 


.BYTE 


001 


.BYTE 


002 


.BYTE 


004 


.BYTE 


040 


.BYTE 


100 


.BYTE 


200 


.BYTE 


000 


.BYTE 


346 


.BYTE 


345 


.BYTE 


343 


.BYTE 


307 


.BYTE 


24 7 


.BYTE 


147 


.BYTE 


34/ 


.BYTE 


242 


.BYTE 


105 


.BYTE 


34 7 


.BYTE 


010 


.BYTE 


020 


.BYTE 


367 


.BYTE 


357 


.BYTE 


030 


.BYTE 


02 7 


.BYTE 


3/7 


;***** DATA PATTERN 


PAT J: 




.BYTE 


000 


.BYTE 


000 


.BYTE 


001 


.BYTE 


002 


.BYTE 


004 


.BYTE 


020 


.BYTE 


040 


.BYTE 


010 


<*»»*« DATA PATTERN 


PATKi 




.BYTE 


000 


.BYTE 


377 


.BYTE 


3 76 


.BYTE 


3/5 


.BYTE 


373 


.BYTE 


3/6 


,BfTF 


17 7 


.BYTE 


377 



J ***** 



K ***** 



CNOMEAO DMV11 LINK UNIT DIAG3 
DATA TEST PATTERNS 
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5EQ 0045 



2106 


003022 


000 


2109 


003023 


001 


2110 


003024 


002 


2111 


003025 


004 


2112 


003026 


010 


2113 


003027 


200 


2114 


003030 


125 


2115 


003031 


252 


2116 


003032 


000 


2117 






2118 






2119 


003033 




2120 


003033 


000 


2121 


003034 


017 


2122 


00*6035 


016 


2123 


003036 


015 


^124 


0030'.7 


013 


2125 


003040 


016 


2126 


003041 


017 


2127 


003042 


017 


2128 


003043 


000 


2129 


003044 


001 


2.130 


003045 


002 


2131 


003046 


004 


2132 


003047 


010 


2133 


003050 


000 


2134 


003051 


005 


2135 


003052 


012 


2136 


003053 


000 



BYTE 
BYTE 
BYTE 
BYTE 
BYTF 
BYTE 
BYTE 
BYTE 
BYTE 



000 
001 
002 
004 
010 
200 
125 
252 
000 



.♦♦♦♦<v DATA PATTERN L ***** 
PATL: 



.BYTE 
.BYT;: 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.<JYTC 
.BYTE 
.BYTE 

.8fTF 

.BYTE 
BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



000 
017 
016 
015 
013 
016 
017 
017 
000 
001 
002 
004 
010 
000 
005 
012 
000 



CNDMEAO 


DMV11 LINE 


UNI 


DATA TEST PATTERNS 




2138 






2139 






2140 


003054 


000 


2141 


003055 


002 


2142 


003056 


014 


2143 


003057 


060 


2144 


003060 


001 


2145 


003061 


00/ 


2146 


003062 


037 


2147 


003063 


177 


2148 






2149 






2150 


003064 
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SEQ 0046 



2151 



;***#<» [ 


)ATA PATTERN Q ***** 


PATQ: 


.BYTE 


000 




.BYTE 


002 




.BYTE 


014 




.BWE 


060 




.UyTE 


001 




.HYTE 


007 




.BYTE 


037 




J1YTE 


177 


ENDPAl : 






.EVEN 







14 
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SEQ 0047 
DATA TEST PATTERNS 

2153 

2154 
2155 

2156 (*♦• RECEIVED DATA BUFFER (64. WORDS) +** 

2157 003064 RCVBUF: .BLKW 64. 

2158 
2159 
2160 
2161 



J4 
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GLOBAL TEXT SECTION 

2163 

21^4 
2165 

2166 

2167 

2163 

2169 

2170 

2171 

2172 

2173 

2174 00326^ 
003264 

003264 115 
003267 065 
003272 1.17 
003275 115 
003300 066 



SEQ 0048 



070 
063 
122 
070 
064 



Ot-iO 
O'iO 

06C 

000 



.SBTTl. GLOBAL TEXT SECTION 

* THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 

* MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

* MORE THAN ONE TEST. 

; ; ** *.;******t**A**** ********************************************************** 

:+ NAMtS OF DEVICES SUPPORTED BY PROGRAM 

;;****<.*****»***4**l^,». ft ************************************* + ***************«* 

DEVTYP <M8053 C3 M8064> 

L$DVTYP :; 

.ASCIZ *M8053 OR M8064* 



.EVEN 



2176 
2177 
2178 
2179 
2180 
2181 



000012 



STS 



003304 
003304 
003304 
PART 3 OF 
003307 
003312 
003315 
003320 
003323 
003326 
003331 
003334 
003337 
003342 
003345 
003350 



3/ 



2182 
2185 
2184 



104 

055 
040 
116 
125 
124 
105 
123 
040 
122 
063 
106 
000 



O0Q01Q 



115 

061 
114 
105 
116 
040 
123 
040 
120 
124 
040 
040 



126 

061 
111 
04 1 
111 
124 
124 
055 
101 
040 
117 
063 



»•******* 4***************^ *******+*****************************************++ 

s* TITLE Or PROGRAM 

• •***** i* «********c******* *************************************** ************* 



.RADIX 10. 

DESCRiPT 



.RADIX 8. 



<DMV-U LINE UNIT TESTS • PART S OF 3> 

L*DESC:: 



.ASCI/ /DMV-11 LINE UNIT TE 



.EVEN 



I<4 



CNDMEAO DMVll LINE UNIT DIAG3 
GLOBAL SUBROUTINE SECTION 

2192 

2195 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 



2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 



2225 

2226 
222/ 
2228 
2229 
2230 
2231 
2232 



003352 112777 



003360 
003362 
003366 
003370 

003372 
003400 
003402 
003406 
003414 

003414 
003422 
0034 30 
0034 36 
003444 
003446 
003450 
003452 



010346 

012703 
077301 
012603 

132777 
001023 
004737 
012737 



012737 
012737 
012737 
012737 
000261 
000401 
000241 
000207 
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, SBTTL GLOBAL SUBROUTINE SECTION 



SEQ 0049 



000301 
000030 

000200 177022 



SBTTL M-LOOP - ■■ MSTCLR -- MASTER CLEAR AND ENTER M-LOOP 

MSTCLR -- MASTER CLEAR 6 ENTER M-LOOP 

CALLING SEQUENCE; 

JSR PC MSTCLR 

BCC N$* | IK NO ERROR OCCUREO, PROCEED WITH ROUTINE 

ERROR jAN ERROR MESSAGE HAS B£EN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

Nt: RESUMPTION OF NORMAL PROCESSING* 
177040 MSTCLR: MOVB *WUN!MCLR!MREQ f 8BSF.Ll {INITIATE M-LOOP 



15 



004166 
000301 



000001 
000001 
014263 
020120 



002324 



0021/2 
002174 
002176 
002200 



MOV 
MOV 
SOB 
MOV 

BITB 

BNE 
JSR 
MOV 
GTDF 



5$: 
9$: 



SEC 
BR 
LLC 
RTS 



R3.-CSP) 

$24, .R3 

R3.ll 

(SP)» f R3 



{WAIT FOR THE M-LOOP TO FINISH THE OPERATION 



0MRDY.86SEL2 

5i 

PC.GETWSR 



lOIO THE M-LOOP FINISH 
I YES, GOOD. RETURN 
iGST BYTE SELECT REGISTERS 
*RUN»MCLR!MREQ,GDATA j IDENTIFY REQUESTED FUNCTION 

EN3.ERR4 ;'*MRDY" TIMEOUT 

I QUEUE "DEVICE FATAL" ERROR 1 

MOV 
MOV 
MOV 
MOV 
i SET CARRY TO INDICATE ERROR 
9$ »EXI1 WITH THE "ERROR" FLAG (CARRY BiT) SET 

t CLEAR Q BIT FOR NO ERRORS 
PC ^RETURN 



GT.EDF.ERRTYP 
01.ERRNBR 

$fcM3,ERRMSG 
*ERR4,ERRBLK 



CNDMEAO DMV11 LINE UNIT 0IAG3 

„,. M-LOOP -- READ 

2234 
2235 

2236 
2237 
2238 
2239 
. ■ ^40 
224 1 
2242 
2245 
2244 
2245 
2246 
2247 
224. 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 



L4 
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SEQ 0050 



2265 
2266 
2267 
2268 
2269 
22 70 
2271 
22/2 
2273 
2274 



003454 
003460 

003466 

003470 
003474 
0034 76 

003500 
003506 

003510 
003514 
003522 

003522 
003530 
003536 
003544 
003552 
003554 

003556 
003560 
003564 



012577 
112777 

010346 
012703 
077301 
012603 

132777 
001023 

004 73 7 
012737 



012737 
012737 
012737 
012757 
000261 
000401 

000241 
117735 
0002Q5 



SBTTL , ...M-LOOP -- READ 

READ - READ THE SPECIFIED ADDRESS WITHIN THE DMV-11 (M8053) 

CALLING SEQUENCE: 

JSR R5 READ 

.WORD <ADDRESS OK REGISTER WITHIN DMV-11> 

.WORD DESTINATION ADDRESS WITHIN LSI-11> 

BCC N* j IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR j AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

N*: RESUMPTION OF NORMAL PROCESSING* 

--** + + + *.+ ****** + + + **** + + *********** + ** + **♦* + **** + + * + * + ** + * + * + * + + * + * + + ******* + 



176746 
000001 



000050 



176734 



READ: 



1$ 



000200 176714 



004166 
000001 



000001 
000002 
014307 
020120 



176646 



002324 



002172 
002174 
002176 
002200 



MOV 
MOVB 

MOV 
MOV 
SOB 
MOV 

BITB 
BNE 

JSR 
MOV 
bTDF 



(R5)» .SSEL4 
*REDL0C,S»SEL2 

R3.-CSP) 
$40. ,R3 

R3.U 
(SP)»,R3 

0MRDY,0eSEL2 
5$ 

PCGETWSR 

frREDLOC.GDATA 

EM4.ERR4 



5$: 

64: 



SEC 
BR 

CLC 

MOVB 

RTS 



6$ 



aBSfcl6 f SKR5)* 
R5 



{SETUP SOURCE POINTER 

I TELL M-LOOP TO GIVE US THE REQUESTED DATA 



{WAIT FOR THE M-LOOP TO FINISH THE OPERATION 



{DID THE M-LOOP FINISH 
jYES, GOOD. RETURN 

{GET BYTE SELECT REGISTERS 

j IDENTIFY REQUESTED FUNCTION 

i"MRDY" TIMEOUT 

j QUEUE "DEVICE FATAL" ERROR * 2 

MOV 
MOV 
MOV 
MOV 

{INDICATE AN ERROR HAS BEEN STACKED 

{RETURN WITH THAT INDICATION 

{INDICATE "NO ERROR" 

jPUT DATA WHERE CALLER WANTS IT 

{RETURN 



ST.EDF.ERRTtP 
42.ERRN6R 
4EM4.ERRMSG 
0£RR4 t £RRBLK 



CNDMEAO DMV11 LINE UNIT DIAG3 
....M-LOOP -- READ IMMEDIATE 

2276 



2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
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M4 

PAGE 29 



SEQ 0051 



2308 
2309 
2.310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 



003566 
003566 
003572 

003600 
003602 
003606 
003610 

003612 
003620 

003622 
003626 
003634 

003634 
003642 
003650 
003656 
003664 
003666 

003670 
0036^2 
003676 



012577 
112777 

010346 
012703 
077301 
012603 

132777 
001023 

004737 
012737 



012737 
012737 
012737 
012737 
000261 
000401 

000241 
017725 
000205 



.SBTTL M-LOOP -- READ IMMEDIATE 

j + + + + * + + ±±+ + ± + 4,+ + + + +4. + * + + * + * + + + + + + + + + + +,+ + +, + + +, + +++, + * + +.++ + + *+**+,4,4 L +.4 L 4 l + + ± + +.t± + + +,t 

I READI - READ IMMEDIATE THE SPECIFIED ADDRESS WITHIN THE DMV-11 (M8053) 

; CALLING SEQUENCE: 

! JSR R5, READI 

} .UORD <ADDRES5 OF REGISTER WITHIN DMV-11> 

; .WORD DESTINATION -- CONTENTS OF REG. IS PUT HERE> 

j RCC N* j IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

( ERROR j AN ERROR MESSAGE HAS BEEN STACKED i PRINT IT 

i <ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

! N$r 



176634 
000001 



000050 



RESUMPTION OF NORMAL PROCESSING> 
READI; 



176622 



1$ 



000200 176602 



004166 
000001 



C00001 
000003 
014307 
020120 



176534 



002324 



002174 
002176 
002200 



MOV 
MOVB 

MOV 
MOV 
SOB 
MOV 

BITB 
BNE 

JSR 
MOV 
GTDF 



CR5)* ,5)SEL4 
OREDL0C,&8SEL2 

R3.-CSP) 
040. ,R3 
R3.1* 
(SP)»,R3 

*MRDY,6>eSEL2 
5$ 

PC.GETWSR 

OREDLOC.GDATA 

EM4.ERR4 



5$ 

6$ 



SEC 
BR 

CLC 

MOV 
RTS 



6$ 



q)SEL6,(R5) + 
R5 



j SETUP SOURCE POINTER 

j TELL M-LOOP TO GIVE US THE REQUESTED DATA 



{WAIT FOR THE M-LOOP TO FINISH THE OPERATION 



{DID THE M-LOOP FINISH 
j YES, GOOD. RETURN 

{GET BYTE SELECT REGISTERS 

{IDENTIFY REQUESTED FUNCTION 

j"MRDY" TIMEOUT 

5 QUEUE DEVICE FATAL" ERROR * 3 

MOV 
MOV 
MOV 
MOV 

{INDICATE AN ERROR HAS BEEN STACKED 

{RETURN WITH THAT INDICATION 

{INDICATE "NO ERROR" 

{PUT DATA WHERE CALLER WANTS IT 

{RETURN 



OT.EDF.ERRTYP 
43.ERRN8R 
GEM4.ERRMSG 
4ERR4.ERRBLK 
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, .M-LOOP -- WRITE 



2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 



SFO 0052 



.SBTTL M-LOOP -- WRITE 

WRITE - WRITE THE SPECIFIED DATA INTO THE SPECIFIED DMV-U ADDRESS 

CALLING SEQUENCE: 

JSR R5, WRITE 

.WORD <ADDRESS OF REGISTER WITHIN DMV~11> 
.WORD -ADDRESS OF DATA BYTE> 

BCC M (IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR j AN ERROR MESSAGE HAS BEEN STACKED t PRINT IT 

(I.E. CKLOOP)> 



N$ 



<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE 
RESUMPTION OF NORMAL PROCESSINO 



- -+ + ++**. + + ± + ±±±±* + + + + + + *, + + + \ *.+. + +. + * ±±+± + +.^ + + 4, * + *.*+.+,* + + +. + ** + + *.+ **. + *,** ± + +,4. ±4.+,+,*,* 



003700 012577 176522 
003704 113577 176522 
003710 000404 



WRITE: 



MOV 


(R5)*,SSEL4 


MOVB 


S(R5)*.aSEL6 


BR 


MLWRI 



{SETUP SOURCE POINTER 

(MAKE DATA AVAILABLE TO M-LOGP 

(THE REST OF THIS ROUTINE IS THE SAME AS "WRITEI" 



2340 
2341 
2342 



B r 5 



CNDMEAO DMVli LINE UNIT DIAG3 
. ,,,M LOOP -- WRITE IMMEDIATE 



2344 
2345 
2540 
234? 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 



2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 

2373 
2374 
2375 



2376 
23 7 7 
2378 
2379 
2380 
2381 
2382 
2383 
2384 



003712 
003712 
003716 
003722 

003730 
003732 
003736 
003740 

003742 
003750 
003752 
003756 
003764 

003764 
003772 
004000 
004006 
0O4014 
004016 

004020 
004028 



012577 
012577 
112777 

010346 
012703 
077301 
012603 

132777 
001023 
0C4737 
012737 



176510 

176510 
000002 



000050 



004166 
000002 



012737 000001 

012737 000004 

012737 014307 

012737 020120 
000261 
000401 

000241 
000205 
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SEQ 0053 



.SBTTl. M-LOOP 



WRITE IK^IEDIATE 



WRITEI - WRITE IMMEDIATE THE SPECIFIED DATA INTO THE SPECIFIED DMV-ll ADDRESS 

CALLING SEQUENCE} 

JSR R5 WRITEI 

.WORD <ADDRESS OF REGISTER WITHIN DMV-11> 

.WORD <DATA FIELD -- DATA TO BE WRITTEN IN DMV-li> 

BCC M i IF NO ERROR OCCURED, PROCEED WITH ROUTINE 

ERROR |AN ERROR MESSAGE HAS BEEN STACKED; PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE (I.E. CKLOOP)> 

Nit RESUMPTION OF NORMAL PROCESSING 

.-+**+.+ +*.* + + * + ** + * + + + + + + * + <>**** + * + + + + + + * + + * + mm + + + m + m4* + * + + *t- + m + ** + + 

WRITEI: 



176472 MLWRI? 



1$ 



000200 176452 



002324 



002172 

002174 
002176 
002200 



MOV 
MOV 
MOVB 

MOV 
MOV 

soe 

MOV 

BITB 
BNE 

JSR 
MOV 
GTDF 



(R5)»,QSEL4 
(R5)*.8SEL6 

*WRIL0C,8BSEL2 

R3.-CSP) 
*40. ,R3 
R3.1* 
CSP).,R3 

*MRDY t Q8SEL2 
5$ 

PC.GETWSR 

*WRILOC,GDATA 

6M4.ERR4 



5* 

6* 



SEC 
BR 

CLC 
RTS 



6* 



R5 



l SETUP SOURCE POINTER 

iMAKE DATA AVAILABLE TO M-LOOP 

I TELL M-LOOP TO WRITE THE DATA 



jWAIT FOR THE M-LOOP TO FINISH THE OPERATION 



iDID THE M-LOOP FINISH 

I YES, GOOD. RETLflN 

iGET BYTE SELECT REGISTERS 

iIDENTIFY REQUESTED FUNCTION 

i"MRDY" TIMEOUT 

i QUEUE "DEVICE FATAL" ERROR 9 4 

MOV 
MOV 
MCV 
MOV 

iINOICATE AN ERROR MAS BEEN STACKED 

iRETURN WITH THAT INDICATION 



♦T.EDF,ERRTYP 
•4>ERRNBR 
♦EM4.ERRMSG 
*ERR4,ERRBLK 



j INDICATE "NO ERROR" 
tRLTURN 



C5 
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, ...GETBSR -- GET BYTE SELECT REGISTERS 



SEQ 0054 



2386 
238/ 

2389 

2390 

2391 

2392 

2593 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

24 17 

24 18 

2419 

2420 

2421 

2422 

2423 

24 24 

2425 

2426 

2427 

2428 

2429 

2430 

2431 



004024 
004032 
004040 
004046 
004054 
004062 
004070 
001076 
004104 
004112 
004120 
004126 
004134 
004142 
004150 
004156 
004164 



004166 
004174 
004202 
004210 
004216 
004224 
004232 
004240 
0042*6 



117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
117737 
11773? 
000207 



017737 
017737 
017737 
017737 
017737 
017737 
017737 
017 737 
000207 



176366 
176362 
176356 
176352 
176346 
176342 
176336 
176332 
176326 
176322 
176316 
176312 
176306 
176302 
176276 
176272 



176224 
176222 
176220 

176216 
176214 
176212 
176210 
176206 



002202 
002204 
002206 
002210 
002c" 12 
002214 
002216 
002220 
002222 
002224 
002226 
002230 
002232 
002234 
002236 
002240 



002202 
002204 
002206 
002210 
002212 
002214 
002216 
002220 



.SOTTL GETBSR -- GET BYTE SELECT REGISTERS 

GET THE CONTENTS OF ALL CONTROL AND STATUS REGISTERS 

FUNCTION - THIS SUBROUTINE COLLECTS THE CONTENTS OF THE 

BYTE SELECT REGISTERS FOR THE PURPOSE OF DISPLAY. 



ENTRY CONDITIONS • NONE 

EXIT CONDITIONS - NONE 

REGISTERS DESTROYED - NONE 



00 0000 00 

000 000 

00 oo 

00000 



00 



0000 oooo 



****•♦***** + **• + ♦**********♦*****•****♦<; *♦•>*♦♦**♦»**♦•*♦♦*♦♦•*♦»»♦♦♦*»♦♦»** 



GETBSR: MOVB 
M0V3 

nova 

MOVB 
MOVB 
MOVB 
MOVB 

Move 

MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
RTS 



SBSELO.BSMO 

SBSELl.BSRl 

86SEL2.BSR2 

B6SF.L3,BSR3 

86SEL4.BSR4 

BBSEL5,BSR5 

8BSEL6.BSR6 

88SEL7,BSR7 

SBSELIO.BSRIO 

seSELll.BSftll 

B6SEL12.BSR12 

86SEL13,BSR13 

8BSEH4.BSR14 

SBSEL15.BSR15 

QBSEL16.BSR16 

86SEL17.BSR17 

PC 



iPUT THE CURRENT CSR VALUES INTO THE PRINT -OUT 
I TABLE 



jRETURN TO TALLER 



.SBTTL 
I "UORO' 

GETWSR} 



..GETWSR •• GET WORD SF.IFCT REGISTERS 
VERSION OF ABOVF SLflROUTINE 



MOV SSELO.WSRO 

MOV 8SEL2,USR2 

MOV SSEL4.WSR4 

MOV BSEL6.WSR6 

MOV 8SEL10.WSR10 

MOV 8SEL12.WSR12 

MOV SSEL14.USR14 

MOV 0SEL16.WSR16 

RTS PC 



j MOVE THE 4 WORD REGISTERS TO THE OTHERWISE 
iBYTE TABLE 



jRETURN TU CALLER 
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SEQ 005b 



54 33 

54 34 
5435 
54 36 
54 3? 
54 38 
54 39 
5440 
5441 
544J) 
5443 
5444 
544b 
5446 
544? 
5448 
5449 
5450 
5451 
5455 
5453 
5454 
5455 
5456 
5457 
5456 
2459 
5460 
5461 
5465 
5463 
5464 
5465 
5466 
5467 
5468 
2469 
24/0 
2471 



54/5 
54 7 3 
54 74 
54 /5 
54/6 
54 7 7 
54 78 
54 79 
54 80 
5481 
54 ft? 
5485 
5484 



004550 
004554 

004560 
004564 
004566 
OO4570 

004572 
004276 
004302 
004304 
004306 

004310 
004316 

004350 
004 355 

004 325 
004 330 
004 336 
004 344 
004 355 
004 354 



010037 
010037 

004537 
000000 
002325 
103431 

005037 
004537 
000000 
005356 
103422 

123737 
00024 1 

001415 



012737 
012737 
012737 
01273? 
000261 
000207 



004 356 00050? 



004564 
004305 

003700 



005356 
003454 



002354 002356 



000001 
000005 
014360 
020244 



005175 
002174 
002176 
002200 



.5BTTL STUREG -- STATIC TEST OF SPECIFIED USYRT REGISTER 

STUP.EG -- PERFORM A STATIC TEST OF THE SPECIFIED USYRT REGISTER 

CALLING SEQUENCE: 

<R0 CONTAINS THE ADDRESS OF THE REGISTER TO BE TESTED> 

<"T0ATA" CONTAINS THE TEST BYTE> 

<"GDATA" CONTAINS THE EXPECTED DATA> 

<"REGNUM" CONTAINS REG INDEX FOR POSSIBLE ERRORS* 

JSR PC, STUREG 

BCC N$ iIF NO ERROR OCCUREO, PROCEED WITH ROUTINE 

ERROR ,AN ERROR MESSAGE HAS BEEN STACKED: PRINT IT 

<ANY OTHER SPECIAL ERROR PROCESSING MAY BE DONE HERE CI.F. CKLOOP)> 

Nlj RESUMPTION L'P" NORMAL PROCESSING> 
» 

iPUT SPECIFIED REGISTER'S ADDRESS IN I/O CALLS 



STUREG: MOV 
MOV 



2$ 



4$ 



vJSR 
.WORD 
.WORD 
BCS 

CLR 

JS r s 

.WORD 

.WORD 

BCS 

CMPB 
CLC 

BEQ 
GTDF 



R0,5* 
R0,4$ 

R5.UR.TE 


TDAIA 
lul 

BOATA 

R5.REAU 



BDATA 

10$ 

GDATA, BDATA 



101 

EM25.ERR7A 



jWRITE IT 

I*** MODIFIED FROM ABOVE 

jON ERROR, EXIT 



*** 



iCLEAR BOTH BYTES 
iREPH IT BACK AGAIN 
!♦•* MODIFIED FROM ABOVE 

I ON ERROR, EXIT 



JUST IN CASE 



10$ 



SEC 
RTS 



PC 



iDID Wf READ UHAT WE WROTE? 

i (THIS ISN'T NEEDED FOR THE ERROR TEST BUT 

l MUST BF CLEARED ON EXIT IF NO ERROR OCCURED) 

j rES, EXIT FROM SUBTEST 

i REPORT READ/WRITE ERROR 

j QUEUE "DEVICE FATAL" ERROR 5 

MOV 
MOV 
MOV 
MOV 

j INDICATE THAT AN ERROR WAS DETECTED 



*T,EDF,ERRTiP 
05.ERRNBR 
$EM55,ERRMSG 
0ERR7A.ERRBLK 



.SBTTL STALL - DELA*. FOR 10.5 MICRO SF.C'S (ON LSI-It) 

j STALL - THIS SUBROUTINt STAILS FOR ABOUT 10.5 MICRO SECONDS 



STALL: RTS 



PC 



E5 
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SEQ 0056 



2486 

248? 

2488 

2489 

2490 

2401 

2492 

2495 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2510 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 



004360 
004 366 

004374 
004400 
004404 
004406 

004410 
00441* 
0O4420 
004422 

004424 
004430 
004436 

004440 
004446 
004454 



004460 
004466 
0044 74 
004500 
004504 
004506 
004510 
0O4514 
004522 
004530 
004532 



012737 
012737 

005037 
00453 7 
122000 
002260 

005077 
004537 
000000 
000000 

005237 
023727 
001772 

062737 
023727 
001355 



004456 000207 



012737 
012737 
00507 7 
004537 

oooooo 

000000 
0052 37 

062737 
023727 
001361 
000207 



002242 
120400 

002260 
003454 



000006 
003454 



004420 
004420 



000002 
004420 



004422 
004420 



120406 



004422 
120410 



002262 

120000 
000006 
003454 



004504 
000002 
004504 



004506 
004504 



.SBTTL 

j* GETURS - LOAD INTO ThtS 8 WORD STORAGE AREA (UREGS) THE CONTENTS OF THE 

I* 

,* 

!* 



VARIOUS USYRT REGISTERS 
CALLING SEQUENCE t 



ft? tups* Mnv AijRFn^.Si . tntt pnmTPR in ara crrnpAnF tari p 



** + 



GETURS; 



3$; 

4$: 

5$; 

6$: 



MOV 0UREGS.5* 

MOV 0USYRT.4* 

CLR UREGS* 14* 

JSR R5.READ 

.WORD USTATR 

.WORD UREGS* 14. 

CLR 85 i 

JSR R5.READ 

.WORD 

. WORD 

INC 4$ 

CMP 4$.<HJSYRT*6 

BEQ 6* 

AOD 02.5$ 

CMP 4$,0USYRTflO 

BNE 3$ 

RTS PC 



INIT 
INIT 



POINTER to REG STORAGE TABLF 
POINTER TO REGISTER ADDRESSES 



CLEAR STORAGE WORD 

READ THE USYRT STATUS REGISTER 

STATUS REGISTER'S ADDRESS WITHIN DMV-U 

ADDRESS ALLOCATED TO THAT REG. W/IN "UREGS" 

CLEAR STORAGE WORD 
READ A LINE UNIT REG 
REGISTER ADDRESS GOES HERE 
STORAGE ADRS IN TABLE GOES HERE 

INCREMENT REG NO. 

THIS IS NOT A VALID REGISTER ADDRESS 

SO IT MUST BE BYPASSED 

ADVANCE ADDRESS OF STORAGE AREA POINTER 
SEE IF ALL REGS READ YET 
BR IF NOT 

jRETURN 



t* GETVRS: - LOAD INTO THE 16 WORD STORAGE AREA (VREGS) THE CONTENTS OF THE 
I* VARIOUS VIA REGISTERS, 

5* CALLING SEQUENCE : 



j 



GETVRS: 

3$: 

4»: 
5»: 
6*: 



004506 
120020 



MOV 
MOV 
CLR 

JSR 

.WORD 

.WORD 

INC 

ADD 

CMP 

BNE 

rt^; 



*VREGS,5$ 

CVIA.4I 

85$ 

R5.READ 



4» 

02, 5« 

4$ ,*VIA*16 

3$ 

PC 



I INIT POINTER TO Rt G STORAGE TABLE 

t INIT POINTER TO REGISTER ADDRESSES 

i CLEAR STORAGE WORD 

jREAO A VIA REG 

iREGISTER ADDRESS GOES HERE: 

t STORAGE ADRS IN TABLE GOES HERE 

j INCREMENT REG NO. 

» INCREMENT STORAGE ADRS 

j SEE IF ALL VIA REGS READ YET 

iBR IF NOT 

jRETURN 



F 5 
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, ,,.INITT1 -- INITIALIZE TIMER til 



SEQ 0057 



2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

25U8 

2589 

2590 

2591 

2592 

2593 

25^4 



004534 
0C4536 
004542 
004546 
004550 
004554 
004560 

004562 
004564 



004566 
004572 
004576 

004602 
004606 
004610 

004612 
004616 

004620 

004622 

004626 
004632 
004636 



010146 
012537 
012537 
111501 
143701 
010137 
112501 

106301 
106301 



143701 
153701 
010137 

004537 
120016 
000000 

004537 
120013 
000000 

013701 

143701 
053/01 
010137 



CALLING SEQUENCE: 



BIT 
THE 



5 WILL BE 
INTERRUPT 



SBTTL ....INITT1 •• - INITIALIZE TIMER fi\ 

***************************** ******** **************************************** 

* INITT1 - INITIALIZE TIMER 1 

+ 

+ 
* 
* 

* 

* 
* 
* 
* 

+ 
* 
* 
* 
* 
* 
* 

}* 

I* 

;************************* **************************************************** 



JSR 
.WORD 
.WORD 
.BYTE 



.BYTE 



R5.INITT1 

< VALUE LOAOED INTO THE Tl LATCH & VIATIC £ VIAT1D> 

<VALUE LOAOED INTO "T1L-L" 6 "UC-H"> 

<BITS 6 6 7 WILL BE LOADED INTO "ACR" 

USED TO SET OR CLEAR BIT 6 C"T1") OF 

ENABLE REGISTER ("IER")> 
< UNUSED > 



NOTE 



BEFORE LOADING ANO STARTING THE COUNTER, THE LATCH REGISTER (ACCESSED THRU 
"VIATIC") IS LOADED. THEN, T1L-L IS LOADED ANO NEXT, T1C-H. THIS LAST 
LOAD WILL RESET THE TIMEOUT BIT ANO COUNTER LOGIC. IT IS EXPECTED AT THIS 
TIME (5/25/79) THAT THE INTERRUPT FACILITY OF THE VIA CHIP WILL NOT BE USED 
-- HOWEVER, ACCESS TO THE INTERRUPT ENABLE BIT IS GIVEN THROUGH THE THIRD 
PARAMETER IN THE CALLING SEQUENCE (BIT 5-0 WILL CAUSE THIS ROUTINE TO 
CLEAR THE ENABLE BIT ("Tl") IN "IER".) 



004660 
004 706 

00007 7 
004650 



INITT1: MOV 
MOV 
MOV 
MOVB 
BICB 
MOV 
MOVB 

ASLB 
ASLB 



Rl.-(SP) 
(R5)»,7$ 

(R^)*,10* 
(R5),R1 
077, Rl 
R1.4I 
(R5)*,R1 

Rl 

Rl 



000177 
000100 

004610 

003712 



003566 



004620 
000300 
004650 
004650 





BICB 
BISB 

MOV 


177, Rl 
100, Rl 
R1.25 


2$: 


JSR 

VTAIER 

.WORD 


R5, WRITE! 



3$: 


JSR 

VIAACR 

.WORD 


R5.REA0I 






MOV 
BICB 

BIS 
MOV 


3i,Rl 
300, Rl 
4$,Rj 
Rl,4* 



j SAVE THE REGISTER WE WILL BE USING 

i SETUP VALUE TO BE WRITTEN IN LATCH 

I SETUP VALUE TO BE WRITTEN IN COUNTER 

jGET 6 PROCESS BITS FOR ACR 6 £ 7 

i SETUP CALL SET ACR'S BITS 6 6 7 

{NOW, GET THE BIT TO BE USED IN SETTING OR 

I CLEARING BIT 6 OF "IER" 

j THE PASSED BIT IS IN THE WRONG POSITION 

{BUT, THE PASSED BIT SHOULD CONTROL THE OPERATION 

iWT KNOW WE ARE SETTING OR CLEARING BIT 6 - 

i T HUS, THE PASSED BIT WILL BECOME THE CONTROLLING 

jBIT 7 AND WE WILL "OR" IN THE BIT WE WISH TO 

iBE CONTROLLED (BIT 6). 

j FIRST, MAKE SURE ALL UNWANTED BITS ARE CLEARED 

{THEN SET BIT 6 

j THE CALL WILL NOW WRITE THE APPROPRIATE VALUE 



{WRITE TO 
jTHE VIA'S 
I INTERRUPT 



IFR 

ENABLE/DISABLE 



INFORMATION 



jREAD THE CURRENT 
iTHE VIA'S ACR 
i INTO "3$" 



SETTING OF 



j GET THAT VALUE, 
j CLEAR THE CURRENT SETTING 
;SET THEM ACCORDING TO THE 
{PASS THE NEW REG. SETTING 



OF BITS 6 f, 7 
PASSED VALUES 

TO APPROPRIATE CALL 



G5 
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, ,,,INITU -- INITIALIZE TIMER 01 



2595 
2596 
2597 
25 }fl 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 

2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 



004642 
004646 
004650 

004652 
004656 
004660 

004662 
004670 

004674 
004676 

004 700 
004 704 
004 706 

004710 
004 716 
004722 
004 724 



004 726 
004730 



004537 
120013 
000000 

00453 7 
120006 
000000 

113737 
004537 
120007 
000000 

004537 
120004 
000000 

113737 
004537 
120005 
000000 



012601 
005205 



003712 



003712 



00*661 
003712 



003712 



004707 
003712 



004676 



004724 



4$ 



7$ 



8$ 



10$ 



11$ 



JSR 

VIAACR 
.WORD 

JSR 
VIATIC 

.WORD 

MOVB 

JSR 

VIAT1D 

.WORD 

JSR 

VIATJ.A 

.WORD 

MOVB 
JSR 

VIAT1B 
.WORD 



R5.WRITEI 



R5.WRITEI 



7*fl,8* 
R5.WRITEI 



R5, WRITE I 



io$*x. u* 

R5.WRI1EI 





SEQ 0058 



jWRITE TO 

tTHE VIA'S ACR 

(THE NEW REGISTER SETTING 

iWRITE TO 

(LOW ORDER LATCH REGISTER (T1L-L) 

j THE VALUE PASSED 

j SETUP FOR AND 

jWRITE TO 

{HIGH ORDER LATCH REGESTER (T1L-H) 

I THE VALUE PASSED 

{WRITE TO 

j LOW OROER LATCH 6 COUNTER (T1L-L 6 T1C-L) 

jTHr VALUE PASSED 

j SETUP TOR ANO 

jWRITE TO 

;HIGH ORDER COUNTER (T1C-H) <ALSO STARTS CTR> 

;THE VALUE PASSED 



i DON'T WAIT AROUNO FOR ANYTHING TO HAPPEN 



JUST (JEST) RETURN! 



004732 000205 



MOV 
INC 



RTS 



(SP)».Rl 
R5 



R5 



jBUT FIRST RESTORE Rl 

I AND PUT R5 BACK ON A WORD BOUNDRY (THE LAST 

jPASSED PARAM. WAS A BYTE, NOT A WORD!) 

I NOW, RETURN 



l-l5 

CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:40 PAGE 36 
INITT2 -- INITIALIZE TIMER #2 



SEQ 0059 



2629 

2630 

2631 

2632 

2633 

2634 

2635 

263b 

263? 

2638 

c.639 

2640 

2641 

2642 

2b 4 3 

264 4 

264 b 

2646 

264 7 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

266 7 

2668 

2669 

26 70 

26/1 

2672 

26/3 

2b 7 4 

2675 

2676 

267/ 

26/8 

26/9 

2680 

2681 

2682 

2b8 5 

2684 



0O4734 
0O4 736 
004 742 
004 744 
004 750 
004754 

004 756 
004 760 
004 762 



004 764 
0O4770 
004 7 74 

005000 
005004 
005006 

005010 
005014 

005016 

005020 

005024 
005030 
005034 



010146 
012537 
111501 
143701 
010137 
112501 

106301 
106301 
106301 



143701 
153701 
010137 

004537 
120016 
000000 

004537 
120015 

000000 

013701 

143/01 
053701 
01013/ 



SB 

+ + 

* 

* 
* 



TTL INITT2 - •• INITIALIZE TIMER 02 

INITT2 - INITIALIZE TIMER 2 
CALLING SEQUENCE; 



* 

* 
* 
* NOTE; 

* 
* 

*4 



JSR 

.WORD 

.BYTE 



.BYTE 



R5.INITT2 

< VALUE LOADED INTO "T2L-L" £ "T2C-H»> 

<BIT 5 WILL BE LOADED INTO "ACR", BIT 



4 WILL BE USED 



TO SET OR CLEAR BIT 
REGISTER C"IER")> 
<UNUScD> 



5 ("T2") OF THE INTERRUPT ENABLE 



FIRST T2L-L IS LOADED, THEN T2C-H. THIS SECOND LOAD WILL RESET THE TIMEOUT 
BIT AND COUNTER LOGIC. IT IS EXPECTED AT THIS TIME (5/25/79) THAT THE 
INTERRUPT FACILITY OF THE VIA CHIP WILL NOT BE USED -- HOWEVER. ACCESS TO 
THE INTERRL* T ENABLE BIT IS GIVEN THROUGH THE SECOND PARAMETER IN THE 



CALLING SEQUENCE COIT 4 
("T2»0 IN "IER".) 



- WILL CAUSE THIS ROUTINE TO CLEAR THE ENABLE BIT 



***4*4***4^****4***** + «*4*^*** + *** + **4********* + ***4** + +4**A****t*4*A44.*** 



005056 

000337 
005046 



INITT2: 



000177 
000040 
005006 

003712 



003566 



005016 
000040 
005046 
00504b 



2$ 



3*: 



005040 004537 003/12 



MC7 

MOV 

MOVB 

BICE 

MOV 

MOVB 

ASLB 
ASLB 
ASLB 



BICB 
BISB 

MOV 

JSR 

VIAICR 
.WORD 

JSR 

VlAbCK 
. UOPU 

MOV 
BICB 
BIS 
MOV 

JSR 



Rl.-(SP) 

(R5)»,10* 
(R5),R1 
337, Rl 
R1.4I 
(R5)*.RL 

Rl 
Rl 
Rl 



177, Rl 
040, Rl 
R1.2S 

R5, WRITE! 



R5.RFADI 



5*.R1 

040, Rl 

4*,R1 

R1.4? 

R5.WRIIEI 



OR 



j SAVE THE REGISTER WE WILL BE USING 
iSETUP VALUE TO BE WRITTEN IN COUNTER 
iGET C PROCESS BIT FOR ACR 5 

i SETUP CALL TO SET OR CLEAR ACR'S BIT 5 
;NOW, GET THE BIT TO BE USED IN SETTING 

CLEARING BIT 5 OF "IER" 

THE PASSED BIT IS IN THE WRONG POSITION 

BUT, THE PASSED BIT SHOULD CONTROL THE 

OPERATION. 

WE KNOW WE ARE SETTING OR CLEARING BIT 5 -- 

THUS, THE PASSED BIT WILL BECOME THE CONTROLLING 

BIT 7 ANO WE WILL "OR" IN THE BIT WF. WISH TO 

BE CONTROLLED (BIT 5). 

FIRST, MAKE SURE ALL UNWANTED BITS ARE CLEARED 

THEN SET BIT 5 

THE CALL WILL NOW WRITE THE APPROPRIATE VALUE 

WRITE TO 

THE VIA' S IER 

INTERRUPT ENABLE/DISABLE INFORMATION 



READ THE CURRENT 
THE VIA'S ACR 

INTO "3$" 

GET THAT VALUE 

CLEAR THE CURRENT 



SETTING OF 



SETTING OF BIT 5 



SET IT ACCORDING TO THE PASSED VALUE 
PASS NEW REG* SETTING TO APPROPRIATE CALL 

WRITE TO 
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. ...INITT2 -- INITIALIZE TIMER <?2 

5044 120013 

4$; 



2685 


005044 


120013 




2686 


005046 


000000 




2687 








2688 


005050 


004537 


003712 


2689 


005054 


120010 




2690 


005056 


000000 




2691 








2692 


005060 


113737 


005057 


2693 


005066 


004537 


003712 


2694 


005072 


120011 




2695 


005074 


000000 




2696 








269 / 








2699 








2699 


005076 


012601 




2700 


005100 


005205 




2/01 








2702 








2/03 


005102 


000205 




2704 









005074 



15 
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10$: 



11$ 



VTAACR 
.WORD 

JSR 
VIAT2A 

.WORD 

Move 

JSR 
VIAT2B 

.WORD 




R5.WRITEI 



101*1.11$ 
R5.WRITEI 





{THE VIA'S ACR 

jTHE NEW REGISTER SETTING 

jWRITE TO 

j LOW ORDER LATCH £ COUNTER CT2L-L 6 T2C-L) 

j THE VALUE PASSED 

j SETUP KOR AND 

jWRITE TO 

{HIGH ORDER COUNTER (T2C-H) <ALS0 STARTS CTR> 

jTHE VALUE PASSED 



; DON'T WAIT AROUND TOR ANYTHING TO HAPPEN -- JUST (JEST) RETURN! 



MOV 
INC 



RTS 



(SP)»,R1 
R5 



R5 



jBUT FIRST RESTORF. Rl 

;AND PUT R5 BACK ON A WORD BOUNDRY (THE LAST 

jPASSED PARAM, WAS A BYTE, NOT A WORD!) 

j THEN RETURN 



SEQ 0060 



J 5 
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.,.. RSTCHK -- RESET USYRT/VERIFY ALL USYRT REGS 5) RESET STATE 



SEQ 0061 



2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
272 7 
2728 
2729 
2730 
2/31 
2732 
2733 
2 734 
2735 
2736 
2737 
2738 
2/39 
2740 
2741 
2742 



2743 
2 M4 
2 745 
2746 
274 7 
2/4 8 
2749 
2750 
2751 
2/52 

p/r>3 

2754 



005104 
005104 
005106 

005110 
005114 
005116 
005120 
005124 
005126 

005130 
005132 
005136 
005144 
005150 
005152 
005154 
005160 

005162 
005166 
005172 
005176 

005204 

005212 

005212 
005220 
005226 
005234 
005242 
005244 

00524b 
005252 
005256 
005260 
005262 
005264 
005266 



010146 

010246 

004537 
120000 
000031 
004537 
120000 
000030 

005001 
012702 
016137 
004537 
000000 
000000 
123722 
001432 

010137 
006237 
005037 
116237 
013737 



012737 
012737 
01273/ 
012737 
00026 1 
000406 

062 i 01 

02012/ 
002727 
00024 1 
012602 

012601 

000205 



003712 
003712 



002606 
0024 76 
003566 



005152 



002336 
002336 
002324 
177777 
005152 



000001 
000006 
014214 
020364 



000002 
000020 



,SBTTL RSTCHK - •■ RESET USYRT/VERIFY ALL USYRT REGS S RESET STATE 

}+ + * + + + + * + + + + * + + * + + + * +++ + + +++ + + * + + + + + + + + + + + + + ** + + * + * + + * + + + + + + *At.t + + 4.* + + 

j RSTCHK - MANUALLY RESET THE USYRT AND VERIFY THAT ALL USYRT REGISTERS 
{ ARE IN THEIR RESET STATE. AN ERROR MESSAGE IDENTIFYING THE 

; FAILING REGISTER IS STACKED IF ONE IS ENCOUNTERED. 

i CALLING SEQUESCF; 

i JSR R5.RSTCHK 



RS'iCHK: 



005150 6$: 

7$; 
8$: 



002324 
002326 



002.172 
0021/4 
002176 
OOiWOO 



{STACK 



9$; 



104 



MOV 
MOV 



RL-(SP) 
R2.-CSP) 



JSR R5.WRITEI 

VIAORB 

DTR!RTSND!PRESET 

JSR R5.WRITEI 

VIAORB 

DTRIRTSND 



CLR 

MOV 

MOV 

JSR 

.WORO 

.WORD 

CMPB 

BEQ 

MOV 
ASR 
CLR 
MOVB 
MOV 
"USYRT 
GTDF 



Rl 

*PATF,R2 

USYREG(R1).7* 

R5.READI 





8*.(R2)* 

9$ 

Rt.REGNUM 
REGNUtf 
GUATA 

-1(R2),GDATA 
8I.BDATA 
NOT CLEARED BY 
EM2.ERR10 



{SAVE Rl 
l SAVE R2 

I SET PROGRAM RESET BIT IN VIA ORB REG 



jCLEAR PROGRAM RESET BIT IN VIA ORB REG 



jINIT USYRT REG ADRS PTR 

jINlT DATA PATTERN POINTER 

i SET USYRT READ ADDRESS 

{READ A USYRT REG 

{USYRT REG ADRS GOES HERE 

{DATA READ IS RETURNED HERE 

tSEE IF REG CONTAINS EXPECTED DATA 

{BR IF MATCH 



{SET 
jGET 
{GET 

{GET 
PROGRAM 



USYRT REG NO. 
WORD OFFSET 
EXPECTED DATA 



FOR PRINTOUT 



ACTUAL 
RESET" 



DATA 
MSG 



QUEUE -DEVICE FATAL 



SEC 
RR 



10* 



iSLf C BIf TU FLAG bRROR 
,TAKE ERROR EXIT 



ERROR * 6 




MOV 


#T.EDF,ERRTYP 


MOV 


06.ERRNBR 


MOV 


0EM2.ERRMSG 


MOV 


0ERR10.ERRBLK 



ADD 


•V.H1 


CMP 


Rl ,016, 


PL.T 


i't% 


CL.C 




MOV 


(SP>- ,R2 


MHV 


(SP)*.«1 


HIS 


3b 



jINCR USYR1 
{SEE IF ALL 
l OR IF NOT 
l *♦ CLEAR C 

{RESTORE P2 
{RESTORE Rl 
;4* RETURN 



REG ADRS PTR 
REGS READ YET 

BIT FOR NO ERRORS 



K5 
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. , ,,R5TCHI< -- RESET USYRT/VERIFY ALL USYRT REGS Q RESET STATE 



SEQ 0062 



2756 
2757 
2758 

2759 
2760 
2761 
2762 
2763 
2764 
2/65 
2766 
2767 
2760 
2769 
27 70 
27 n 
?i i? 

2773 
27 74 
2775 

2776 
27 7 7 
2778 
2779 
2780 
2/81 
2782 
2783 
2734 
2785 
2786 
2787 
2788 
2789 
2 790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2 798 
2799 
2800 
2801 
2802 
2803 
2804 
^805 
2806 



005270 
005272 
005276 
005300 
005302 



005304 
005304 
005310 
005312 
005314 
005320 
005322 
005324 
005330 
005332 
005334 
005340 
005342 
005344 
005350 
005352 
005354 
005360 
005362 
005364 
005370 
005372 
005374 



010146 
012701 
077101 
012601 
000207 



004537 
120002 
000377 
004537 
120003 
000001 
004537 
120017 
000000 
004537 
120000 
000030 
004537 
120013 
000 550 
004537 
120014 
000022 
00453/ 
120016 
00017/ 
000207 



000005 



; + +, + + + *+ + + + * + + + ** + + + + +.*+.+ + ** + + * + *.+ + + +, + + + *. + ++.*. + * + + **+. + +. 4.+.+. + + +** + + **. + + * + + ** + + + + + 

!* WAITSO - THIS SUBROUTINE STALLS FOR AT LEAST 50 MICRO-SEC, AND THEN RFTURNS 
i M + + 4, + + + + + t + ± + t + + ±* + + + + + ±±*±± + kt± + + + * + + + + +- + + + + + +. + + +■* + + ** + + + + *+ + + *+ + + + + + + +.+. + + + +. 

WAIT50; MOV Rl.-(SP) jSAVE Rl 

MOV 05. ,R1 jINIT COUNTER 

3$ j SOB R1.3I tDELAY HERE-' FOR 23.8 MICRO-SEC 1 S 

MOV (SP)*,R1 jRESTORE Rl 

RTS PC {RETURN 



I 



OVERHEAD (JSR, MOV, MOV, MOV, & RTS) ADD UP TO 25.25 MICRO-SEC S 
THEREFORE, ACTUAL TOTAL DELAY IS 49.35 MICRO-SECONDS 



003712 
00371? 
003712 
003712 
003712 
003712 
QQ3712 



. SBTTL SETVIA -- SET UP VIA REGISTERS 

* SETVIA - SET UP THE VIA REGISTERS 
+ 

{+ THIS SUBROUTINE PROGRAMS THE VIA REGISTERS FOR NORMAL OPERATION, BY 
t* LOADING THE DORB. DDR A, ORB, ACR, PCR, IER. 

'♦ CALLING SEQUENCE : 

* JSR PC, SETVIA 

*******+ + + + ************♦ + **♦ + ** + *#** + #**•*** + **** <■******************* + ** + **** 
SETVIA; 

jSET PORT B FOR OUTPUT MODE 

j SET PORT A FOR INPUT MODE 
j (BITO IS ONLY OUTPUT BIT) 

I DISABLE USYRT INTERNAL LOOPBACK 
jINIT PORT B 



JSR 


R5 


WRITEI 


VIADPB 






377 






JSR 


R5 


WRITEI 


VIADPA 






001 






JSR 


R5 


WRITEI 


VIAORA 






000 






JSR 


R5 


WRITEI 


VIAORB 






DTR!RTSND 




JSR 


R5 


WRITEI 


VIAACR 






350 






JSR 


R5 


WRITEI 


VIAPCR 






022 






JSR 


R5 


.WRITEI 


VIAIER 






1 11 






RTS 


PC 





j SET ACR FOR 



I SET PCR FOR 

\ 
\ 



Tl SQUARE WAVE OUTPUT MODE, 
T2 ONE -SHOT OUTPUT MODE, 
SR AT SYS CLUCK RATI ON CB1 
CFU NEG TRANS INPUT MODE, 
CA^ NEG TRANS INPUT MODE , 
CA1 NEG TRANS INPUT MODE 



iDISABLE ALL MICRQ-INTRPTS 
tRETURN 



L5 
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INIDMV -- INIT DMV (MCLR, VIA SETUP) 



SEQ 0063 



2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2316 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
284 3 



0053/6 
005402 
005406 



005410 
005410 
005414 

005^6 
005420 
005424 
005426 
005430 
0054 36 
005444 
0054 50 

005456 



0054 !>6 
005464 
0054 72 
005500 

2844 005506 

2845 005510 

2846 005512 
284 7 

2848 
284 9 

2850 



004 737 003352 
004737 005304 
000207 



004537 
122000 
000000 
12253/ 
00024 1 
001430 
012737 
016537 
005037 
113737 



012737 
012737 
012737 
012/37 
000261 
005205 
000205 



003566 



005416 



000007 
177777 
002326 
005416 



000001 
000007 
014650 
020364 



002336 
002324 

002326 



002172 
(-02174 
00 M . 76 
002200 



.SBTTL INIDMV -- INIT DMV (MCLR, VIA SETUP) 

j* INIDMV - THIS SUBROUTINE INITIALIZES THE DMV -11, BY DOING A MASTER CLEAR, 
t* ENTERING THE M-LOOP, AND PROGRAMMING THE VIA REGS FOR DEFAULT 
i* OPERATION. 
}♦ 

»* CALLING SEQUENCE : 
»♦ vJSR PC, INIDMV 

INIDMV; JSR PC,MSTCLR {MASTER CLR, M-LOOP 
JSR PCSETVIA {PROGRAM VIA 
RTS PC {RETURN 



.SBTTL CKUSTS -- CHECK USYRT STATUS REGISTERS 

j***************************************************************************** 

;♦ CKUSTS - THIS SUBROUTINE CHECKS THE USYRT STATUS BY READING THE USYRT 

;♦ STATUS REGISTER AND COMPARING IT TO THE LOW BYTE OF THE WORD ^Ci. -OWING 

i* THE CALL. IF THERE IS A MISMATCH, THE SUBROUTINE STACKS THE ERROR 

}♦ INFORMATION, AND SETS THE "C" BIT AND RETURNS. 

; **************4* ************** *********************** **** . ************** + **** 

CKUSTS: 



lis 



j STACK 



JSR 

USTATR 
.WORD 
CMPB 
CLC 
BEQ 
MOV 
MOV 
CLR 
MOVB 
"USYRT 
GTDF 



R5,READI 



{READ USYRT STATUS REGISTER 





(R5)> 



1$ 



21 

07.REGNUM 
-UR5),GDATA 
BDATA 
U.BDATA 
STATUS INCORRECT " ERROR 
EM68.ERR10 



j SEE IF STATUS MATCHES EXPECTED 

jCLEAR C BIT 

}BR IF STATUS OK 

{SET USYRT REG NO. FOR PRINTOUT 

{GET EXPECTED DATA 

{GET ACTUAL DATA 



2$; 



SEC 




INC 


R5 


RTS 


R5 



{SET C BIT 
l INCREMENT 
{RETURN 



QUEUE ''DEVICE FATAL" ERROR 7 

MOV 
MOV 
MOV 
MOV 



FOR ERROR 

R5 PAST ARGUMENT 



OT.EPF.ERRTYP 

47.ERRNBR 

*EM68,ERrMSG 

4ERR10.ERRBLK 



M5 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 40 
.... CKTACT -- CHECK TRANSMITTER ACTIVE (TXACT) 



SEQ 0064 



2852 

285? 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2^71 
2872 



005514 
005514 
005522 
005526 
005530 
005532 
005536 
005540 
005546 

005550 



005550 
005556 
005564 
005572 
28/3 005600 

2874 005602 

2875 005604 

2876 C05612 
2877 

2878 005614 



005614 
005622 
005630 
005636 
005644 
005646 
005650 
005652 



2879 
2880 
2881 
2882 
2883 
2884 
28c J 5 
28f , 



012737 
004537 
122000 
000000 
032725 
001422 
132737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 
132737 
001416 



012737 
012737 
012737 
012737 
000261 
000401 
000241 
000205 



000007 
003566 



000001 
000004 



000001 
000010 
014677 
020714 



000001 
000011 
014715 
020714 



002336 



005530 



002172 
002174 
002176 
002200 



002172 
002174 
002176 
002200 



,SBTTL CKTACT -- CHECK TRANSMITTER ACTIVE (TXACT) 

{* CKTACT - THIS SUBROUTINE CHECKS FOR THE PROPER STATE OF TXACT IN THE 
I* STATUS REGISTER, AND REPORTS AN ERROR IF IT IS NOT PROPERLY SET 



USYRT 
TO THE 



;* 

i* 

; + 



STATE OF BIT IN THE WORD FOLLOWING THE CALL 



CALLING 

JSR 

.WORD 



SEQUENCE 

R5, CKTACT 
<BIT IS 



EXPECTED VALUE OF TXACT> 

CKTACT * 

07.REGNUM jSET REG NO, FOR POSSIBLE ERROR REPORT 
R5.READI jREAD USYRT STATUS 



1$ 



{STACK 



MOV 
JSR 

USTATR 
.WORD 
BIT 
BEQ 
BITB 
BNE 
"TXACT 
GTDF 





0BIT0,(F5)f 
2$ 

0TXACT.15 
3$ 
NOT SET" MSG 
EM69.ERR12 



000004 005530 2* 



{STACK 



SEC 




BR 


4$ 


BITB 


♦TXACT, 1* 


BEQ 


3$ 


"TXACT 


NOT CLEARED" 


GTDF 


EM70,ERR12 



MSG 



3* 

4J 



SEC 
BR 
CLC 
RTS 



4$ 



R5 



{GET EXPECTED STATE OF TXACT 
jBR IF EXPECTED TXACT * 
i SEE IF TXACT - 1 
jBR IF TXACT * 1 



QUEUE "DEVICE FATAL" 



:SET C BIT TO FLAG ERROR 
,TAKE ERROR EXIT 
{SEE IF TXACT - 
jBR IF TXACT - 



QUEUE "DEVICE FATAL" 



i SET C BIT TO FLAG ERROR 

{TAKE ERROR EXIT 

{CLEAR C BIT FOR NO ERRORS 

{RETURN 



ERROR 8 




MOV 


*T.EDF,ERRTYP 


MOV 


48.ERRN6R 


MOV 


0EM69.ERRMSG 


MOV 


0ERR12.ERRBLK 



ERROR 9 




MOV 


*T.EDF,ERRTYP 


MOV 


09.ERRN8R 


MOV 


0EM70.ERRMSG 


MOV 


0EAR12,ERRBLK 



N5 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:48 PAGE 41 
. ...CKRACT -- CHECK RECEIVER ACTIVE (RXACT) 



SEQ 0065 



2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 



2909 

2910 
2911 
2912 
2913 
2914 



2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 



005654 
005654 
005662 
005666 
0056 70 
005672 
005676 
005700 
005706 

005710 

005710 
005716 
005724 
005732 
005740 
005742 
005744 
005/52 

005754 

005754 
005/62 
005770 
005776 
006004 
006006 
006010 
006012 



012737 
004537 
122000 
000000 
032725 
001422 
132737 
001040 



012737 

012737 
012737 
012737 
000261 
000423 
132737 
001416 



012/37 
012737 
012737 
012737 
000261 
000401 
000241 
000205 



000007 
003566 



000001 
000040 



000001 
000012 
014737 
020714 



000001 
000013 
014755 
020714 



002336 



005670 



002172 
002174 
002176 
002200 



002172 
002174 
002176 
002200 



.SBTTL CKRACT -- CHECK RECEIVER ACTIVE (RXACT) 

!* CKRACT - THIS SUBROUTINE CHECKS FOR THE PROPER STATE OF RXACT IN THE USYRT 

} * STATUS REGISTER, AND REPORTS AN ERROR IF IT IS NOT PROPERLY SET TO THE 

;* STATE OF BIT IN THE WORD FOLLOWING THE CALL. 

i* 

5* CALLING SEQUENCE ; 

* * USR R5 CKHACT 

J* .WORD <BIT IS EXPECTED VALUE OF RXACT> 

CKRACT • 

{SET REG NO. FOR POSSIBLE ERROR REPORT 
{READ USYRT STATUS 



1$ 



MOV 


47.REGNUM 


JSR 


R5.READI 


USTATR 




.WORD 





BIT 


CBIT0.CR5)* 


BEQ 


2$ 


BITB 


ORXACT.l* 


BNE 


3$ 


RXACT 


NOT SET" MSG 


GTDF 


EM71.ERR12 



000040 005670 2$ 



SEC 
BR 

BITB 
BEQ 



4$ 

ORXACT.l* 

3$ 



{GET EXPECTED STATE OF RXACT 
{BR IF EXPECTED RXACT * 
jSEE IF RXACT - 1 
}BR IF RXACT - 1 



QUEUE "DEVICE FATAL" ERROR 10 

MOV 
MOV 
MOV 
MOV 
ERROR 



j STACK "RXACT NOT CLEARED" MSG 



(SET C BIT TO FLAG 
{TAKE ERROR EXIT 
{SEE IF RXACT - 
jBR IF RXACT - 



OT.EDF.ERRTYP 
410.ERRNBR 
*EM71,ERRMSG 
0ERR12,ERRBLK 



JTDF 



EM72.ERR12 



3) 

4$ 



SEC 
BR 

CLC 

RTS 



4* 

R3 



QUEUE "DEVICE FATAL" 



{SET C BIT TO FLAG ERROR 

{TAKE ERROR EXIT 

: CLEAR C BIT FQR NO ERRORS 

{RETURN 



ERROR Q 11 
MOV 

MOV 
MOV 
MOV 



JT.EDF,ERRTYP 
dll.ERRNBR 
OEM72.ERRMSG 
#ERR12.ERRBLK 



CNOMEAO DMVll I TNE UNIT DIAG3 MACRO Ml 200 
CKTBMT -- CHECK TRANSMIT BUFFER EMPTY 



P2-FEB-84 15t4d PAGE 4? 



SEQ 0066 



2924 

2*V5 
29^6 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2954 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 



006014 
006014 
006022 
006026 
006030 
006032 
006036 
006040 
006046 

006050 



006050 
006056 
006064 
0060 72 

2945 006100 

2946 006102 

2947 006104 

2948 006112 
2949 

2950 006114 



006114 

006122 
006130 
006156 
006144 
0O6146 
006150 
006152 



2951 
2952 

2953 
2954 

295 r , 
2956 

295 / 

29^a 



012737 
00453 7 
122000 

oooooo 

032725 
001422 
132737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 
132737 
001416 



012737 
012737 
012737 
012737 
000261 
0OO401 
000241 
000205 



000007 
003566 



000001 
000100 



000001 
000014 
014777 
020714 



002336 



006030 



002172 
002174 
002W6 
002200 



000001 
000015 
015014 
020714 



002172 
002174 

002176 
002200 



.SBTTL CKTBhT -- CHECK TRANSMIT BUFFER CMPTt 



* CKTBMT - THIS SUBROUTINE CHECKS FOR THE PROPER STATE OF TBMT IN THE 

* STATUS REGISTER, AND REPORTS AN ERROR IF IT IS NOT PROPERLY SE 

* STATE OF BIT IN THE WORD FOLLOWING THE CALL. 
♦ 

* CALLING SEQUENCE i 

* JSR R5, CKTBMT 

* ,WORD <BIT C IS EXPECTED VALUE OF T6MT > 

CKTBMT} 



It: 



USYRT 
T TO THE 



**« **# *♦ 



I STACK 



OO010O 006030 21 



MOV 


*7,REGN^A1 


»SET REG NO. FOR POSSIBLE ERROR REPORT 




JSR 


R5.READI 


jREAD USYRT STATUS 




USTATR 








.WORD 









BIT 


«BIT0,(R5)* 


iGET EXPECTED STATE Of TBMT 




BEQ 


2$ 


»BR IF EXPECTED TBMT » 




BITB 


♦TBMT, If 


jSEE IF TBMT - 1 




BNE 


3$ 


iBR IF TBMT - 1 




"TBMT NOT SET" MSG 






GTDF 


EM73,ERR12 


I QUEUE "DEVICE FATAL" ERROR o 12 








MOV 


♦ T.EDf ,ERRTrP 






MOV 


♦12.ERRNBR 






MOV 


OEM73.ERRMSG 






MOV 


©ERR12*ERRBLK 


SEC 




iSET C BIT TO FLAG ERROR 




BR 


49 


iTAKE ERROR EXIT 




BITB 


• TBMT ,U 


jSEE IF TBMT • 




BEQ 


31 


iBR IF TBMT - 





jSTACK "TBMT NOT CLEARED" MSG 



GTDF 



EM74.ERR12 



31: 

4$; 



SEC 
BR 
ClC 
RTS 



41 



R5 



QUEUE "DEVICE FATAL 



I SET C BIT TO FLAG ERROR 

I TAKE ERROR EXIT 

jCLEAR C BIT FOR NO ERRORS 

{RETURN 



ERROR 

MOV 
MOV 
MOV 
MOV 



13 



*T,EDF,ERRTiP 
•13.ERRNBR 
•EM/4.ERRMSG 
0ERR12.ERRBLK 



ce: 



CNDMEAO OMVU I INK UNIT DIAG3 MACRO Ml«>00 22-FLB 84 15?48 PAGE 43 
.♦..CKRDA -- CHECK RECEIVE DATA AVAILABLE 



SEQ 006 7 



29m> 
/W 1 
2962 
2963 

2964 
2965 
2966 
2967 

2968 

2969 

2970 

2971 
2972 
2973 
2974 
2975 
29 7b 
2977 
2978 
2979 
2980 



006154 
006154 
006162 
006166 
006170 
006172 
006176 
006200 
006206 

006210 



006210 
006216 
006224 
006232 
2981 006240 
2962 006242 

2983 006244 

2984 006252 
2985 

2986 006254 

006254 
006262 
006270 
0O6276 
298 7 0O6304 

2988 006 30t> 

2989 006310 

2990 006312 
2991 

2992 
2991 
2994 



012737 
004537 
122000 
000000 
032725 
001422 
132737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 
132737 
001416 



012737 
012737 
012737 
012737 
000261 
000401 
000241 

000205 



000007 
003566 



000001 
000200 



000001 
000016 
015035 
020714 



000001 
000017 

015051 
02Q714 



SB1TI CKRDA -■ CHECK RECEIVE DATA AVAILABLE 



*«•***« 



STATE OT BIT IN THE WORD FOLLOWING THE 



* CKRDA THIS SUBROUTINE CHECKS FOR THE PROPER 

♦ STATUS REGISTER, ANO REPORTS AN ERROR IF 

* 

* 



STATE 
IT IS 
CALL. 



OF RDA IN THE US 
NOT PROPERLY SET 



fRT 
TO 



THE 



CALLING 

JSR 

.WORD 



SEQUENCE 
R5, CKRDA 
<BIT IS 



EXPECTFD VALUt Of" RDA> 



*♦ + * 



002336 



006170 



002172 
002174 
002176 
002200 



CKRDA: 



If 



I STACK 



000200 006170 2» 



j STACK 



002172 
002174 
002176 
002200 



31: 
4*i 



MOV 

JSR 

USTATR 

.WORD 

BIT 

BEQ 

BITS 

BNE 

•RDA NOT 

GTDF 



07.REGNUM 
R5.READI 



0BIT0.CR5)* 

21 

dflOA.lt 

3* 

SET" MSG 

EM75.ERR12 



»SET REG NO. FOR POSSIBLE ERROR REPORT 
iREAD USYRT STATUS 



jGET EXPECTED STATE 
|BR IF EXPECTED RDA 
I SEE IF RDA ■ 1 
I BR IF RDA • 1 



OF RDA 
• 



QUEUE "DEVICE FATAL 



ERROR 



ERROR o 

MOV 
MOV 
MOV 
MOV 



14 



ST.EDF.tRRTfP 
014.ERRNBR 
0£H7S.ERRMSG 
0ERR12.ERRBLK 



SEC 




iSET C BIT TO E|_AG 


BR 


4$ 


jTAKE ERROR EXIT 


BITB 


♦RDA.lt 


I SEE IF RDA - 


BEQ 


3t 


jBR IF RDA - 


"RDA NOT 


CLEARED* 1 MSG 




GTDF 


EM76.ERR12 





SEC 
BR 
CLC 
RTS 



4$ 

R5 



QUEUE "DEVICE FATAL" 



I SET C BIT TO FLAG ERROR 

i TAKE ERROR EXIT 

iCLEAR C BIT FOR NO ERRORS 

iRETURN 



ERROR * 

MOV 
MOV 
MOV 
MOV 



15 



GT.EDF.ERHTYP 
♦15.ERRN0R 
*£M76.ERRMSG 
0ERR12.ERRBLK 



D6 



CNDMEAO 11MV11 l.INt UNIT D1AG3 MACRO M1200 22-FEB-84 15:48 PAGE 44 
»»,. CKRSA -- CHECK RECEIVER STATU5 AVAILABLE 



SEQ 0068 



2996 
299 7 
2993 
2999 

3000 
3001 
3002 
300? 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 



006314 
0O6314 
006322 
006326 
006330 
006332 
006336 
006340 
006346 

006350 



006350 
006356 
006364 
006372 

3017 006400 

3018 006402 

3019 006404 

3020 006412 
3021 

3022 006414 

006414 
006422 
0O64 30 
0064 36 

3023 006444 

3024 006446 

3025 006450 

3026 006452 
3027 

3028 



012737 
004537 
1220O0 
000000 
032725 
001422 
132737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 
152737 
001416 



012737 
012737 
012737 
012737 
00026 1 
000401 
000241 
000205 



000007 
003566 



000001 
000020 



000001 
000020 
015071 
020714 



0O0001 
0O0021 
015105 
020714 



002336 



006330 



002172 
002174 
002176 
002200 



002172 
002174 
002176 
002200 



SBTTL CKRSA -- CHECK RECEIVER STATUS AVAILABLE 

***************************************************************************** 



STATE OF* BIT IN THE WORD FOLLOWING THE 



* CKRSA - THIS SUBROUTINE CHECKS FOR THE PROPER 

* STATUS REGISTER, AND REPORTS AN ERROR IF 

* 
* 

* 

* 



STATE 
IT IS 
CALL. 



OF R5A IN THE USYRT 
NOT PROPERLY SET TO THE 



CALLING 

JSR 

.WORD 



SEQUENCE 
R5, CKRSA 
<BIT IS 



EXPECTED VALUE OF RSA> 

****** * *** ********* ******** * **** ******************* ************************** 

CKRSA; 

07.REGNUM jSET REG NO, FOR POSSIBLE ERROR REPORT 
R5.READI iREAD USYRT STATUS 



1$ 



t STACK 



MOV 
JSR 
USTATR 

.WORD 
BIT 
BEQ 
BIYB 
BNE 

"RSA NOT 
GTOF 



*eiT0,(R5)* 
21 

*RSA,1$ 
3$ 

SET" MSG 
EM77.ERR12 



tGET EXPECTED STATE 
iBR IF EXPECTED RSA 
j SEE IF RSA - 1 
j BR IF RSA - 1 



OF RSA 
- 



QUEUE "DEVICE FATAL 



ERROR 



ERROR 
MOV 

MOV 
MOV 
MOV 



16 



*T.EDF,ERRTYP 
016.ERRNBR 
*EM77,ERRMSG 
0ERR12.ERRBLK 



000020 006330 2% 



x STACK 



SEC 




,SET C BIT TO FLAG 


BR 


4$ 


j TAKE ERROR EXIT 


BITfi 


0ftSA.ll 


jSEE IF RSA ■ 


BEQ 


31 


|BR IF RSA - 


•RSA NOT 


CLEARED" MSG 




GTDF 


EM78.ERR12 





3$ 

4i 



SEC 
BR 

CLC 
RTS 



4i 



R5 



QUEUE 



tSET C BIT TO FLAG ERROR 

I TAKE ERROR EXIT 

j CLEAR C BIT FOR NO ERRORS 

{RETURN 



♦DEVICE FATAL" 


ERROR * 17 




MOV 0T.EDF.ERRTYP 




MOV *17,ERRNBR 




MOV *£M78,ERRMSG 




MOV *ERR12,ERRBLK 



E.6 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:48 PAGE 45 
. %% . CKROR -- CHECK RECEIVER OVERRUN 



SEQ 0069 



3030 
3031 
303c? 
3033 
3034 
3035 
3036 
303? 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
304 7 
3048 
3049 
3050 



006454 
006454 
006462 
006466 
0064 70 
0064 72 
006476 
0O6500 
006506 

006510 



006510 
006516 
006524 
006532 

3051 006540 

3052 006542 

3053 006544 

3054 006552 
3055 

3056 006554 

006554 
006562 
006570 
006576 

3057 006604 

3058 006606 

3059 006610 

3060 006612 
3061 

3062 
3063 



012737 
004537 
120401 
000000 
032725 
001422 
132737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 
132737 
001416 



012737 
012737 
012737 
0.12737 
000261 
000401 
000241 
000205 



000001 
003566 



000001 
000010 



000001 
000022 
015450 
020714 



002336 



006470 



002172 
002174 
002176 
002200 



000001 
000023 
015501 
020714 



002172 
002174 
002176 
002200 



.SBTTL .... CKROR -- CHECK RECEIVER OVERRUN 

CKROR - THIS SUBROUTINE CHECKS FOR THE OCCURANCE OF RECEIVER OVERRUN IN THE 
USYRT RECEIVER STATUS REGISTER CRDSRH), AND REPORTS AN ERROR IF IT IS 
NOT PROPERLY SET TO THE STATE OF BIT IN THE WORD FOLLOWING THE CALL, 

CALLING SEQUENCE : 

JSR R5 CKROR 

,WORD <BIT IS EXPECTED VALUE OF R0R> 

CKROR * 

*1,REGNUM i SET REG NO. FOR POSSIBLE ERROR REPORT 
R5.READI jREAD RECEIVER STATUS 



Ui 



MOV 
JSR 
RDSRH 

.WORD 

BIT 

BEQ 

BITB 

BNE 



0BIT0.CR5)* 
21 

•ROft.ll 
3$ 



{STACK "RECEIVER OVRN NOT SET" M5G 



GTDF 



EM90.ERR12 



000010 006470 2% 



SEC 
BR 

BITB 
BEQ 



4$ 

*ROR , 1 % 
3i 



I STACK "ROR NOT CLEARED" MSG 



GTDF 



EM91.ERR12 



3$ 

4* 



SEC 




BR 


4$ 


CLC 




RTS 


R5 



{GET EXPECTED STATE OF ROR 
jBR IF EXPECTED ROR - 
jSEE IF ROR • 1 
j BR IF ROR - 1 



QUEUE "DEVICE FATAL" ERROR 18 

MOV 



MOV 
MOV 
MOV 



» SET C BIT TO FLAG ERROR 
,TAKE ERROR EXIT 
i SEE IF ROR « 
jBR IF ROR - 



i QUEUE "DEVICE FATAL" ERROR * 19 

MOV 
MOV 
MOV 
MOV 

{SET C BIT TO FLAG ERROR 

j TAKE ERROR EXIT 

» CLEAR C BIT FOR NO ERRORS 

{RETURN 



*T,EDF,ERRTYP 
*18,ERRNBR 
OEM90,ERRMSG 
0ERR12.ERRBLK 



*T.EDF,ERRTYP 
*19,ERRNBR 
*EM91 t ERRMSG 
SERR12.ERRBLK 



F6 



CNOMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:46 PAGE 46 
....CKSEOM •- CHECK RSOM, REOM 



SEQ 0070 



3065 
3066 
3067 
3066 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 



3089 
3090 
3091 
3092 
3093 
3094 



3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 



3103 
3104 
3105 
31Q6 



006614 
006614 
006622 
006626 
006630 
006632 
006636 
006640 
<\>6646 

006650 

006650 
0C6656 
006664 
006672 
006700 
006702 
006704 
006712 

006714 

006714 
006722 
006 730 
006736 
006744 
006746 
006750 
006756 
006760 
006766 

0O6770 

006770 
0067 76 

007004 
007012 
007020 
007022 
007024 
007032 



012737 000007 

004537 003566 

120401 

000000 

032725 000001 

001422 

132737 000001 

001040 



012737 
012737 
012737 
012737 
000261 
000473 
132737 
001416 



012737 
012737 
012737 
01273"> 
000261 
000451 
032765 
001422 
152737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 
132737 
001416 



000001 
000024 
014427 
020714 



000001 
000025 
014406 
020714 



000002 
000002 



000001 
000026 
014465 
020714 



002336 



006630 



002172 
002174 
002176 
002200 



002172 
002174 
002176 
002200 



177776 
006630 



002172 

002174 
002176 
002200 



.SBTTL CKSEOM -- CHECK RSOM, REOM 

j** ******* ****** ************************************************************** 

t* CKSEOM - THIS SUBROUTINE CHECKS FOR THE PROPER 5TATES OF RSOM, REOM IN THE 
USYRT RECEIVER STATUS REG CROSRH) ANO REPORTS AN ERROR IF THEY ARE NOT 
PROPERLY SET TO THE STATES OF BITS 0,1 IN THE WORD FOLLOWING THE CALL. 
IF THE SUBROUTINE DETECTS AN ERROR, THE ERROR INFORMATION 
IS STACKED, AND THE C-BIT SET, WHICH LEAVES THE ERROR REPORTING AT THE 
DISCRETION OF THE CALLING ROUTINE OR SUBROUTINE. 



t* 
;* 
i* 
1 + 

j* 

i + 
;* 

;* 



CALLING SEQUENCE z 
JSR R5, CKSEOM 
<BIT IS EXPECTED VALUE OF RSOM, BIT 1 IS VALUE OF REOM> 

j ******************************************************************** ********* 

CKSEOM: 

07.REGNUM {SET REG NO. FOR POSSIBLE ERROR REPORT 
R5.READI jREAD USYRT RECEIVER STATUS 



1* 



{STACK 



000001 006630 2 t 



; STACK 



3$ 



{STACK 



MOV 
JSR 
ROSRH 
.WORD 
BIT 
BEQ 
BITB 
BNE 
"RSOM 
GTDF 





0BIT0.CR5)* 
2$ 

*RS0M,1I 
3$ 
NOT SET" MSG 
EM29.ERR12 



iGET EXPECTED STATE OF 
j BR IF EXPECTED RSOM - 
{SEE IF RSOM - 1 
}BR IF RSOM ■ 1 



RSOM 




QUEUE "DEVICE FATAL" 



ERROR 



ERROR tf 

MOV 
MOV 
MOV 
MOV 



20 



OT.EDF.ERRTYP 
O20.ERRN8R 
SEM29,ERRMSG 
0ERR12.ERRBLK 



SEC 




t SET C BIT TO FLAG 


BR 


6$ 


{TAKE ERROR EXIT 


BITB 


ORSOM.U 


jSEE IF RSOM - 


BEQ 


3$ 


j BR IF RSOM - 


"RSOM 


NOT CLEARED" MSG 




GTDF 


EM28.ERR12 





SEC 




BR 


6$ 


BIT 


•BIT1.-2CR 1 


BEQ 


4$ 


BITB 


0RE0M,1$ 


BNE 


5* 


'REOM 


NOT SET" MSG 


GTDF 


EM31.ERR12 



0Q0Q02 0Q663Q 4*: 



SEC 
BR 

BITB 
BEQ 



6$ 
«R£QMtlt 

5* 



QUEUE "DEVICE FATAL" 



{SET C BIT TO FLAG ERROR 

{TAKE ERROR EXIT 

iGET EXPECTED STATE OF REOM 

jBR IF EXPECTED REOM - 

,SEE IF REOM - 1 

{ BR IF REOM « 1 



QUEUE "DEVICE. FATAL" 



{SET C BIT TO FLAG ERROR 
{TAKE ERROR EXIT 
jSEE IF REOM * Q 
{BR IF REOM • 



ERROR * 

MOV 
MOV 
MOV 
MOV 



21 



*T.EDF t ERRTYP 
021.ERRN6R 
OEM28.ERRMSG 
0ERR12.ERRBLK 



ERROR 9 
MOV 

MOV 
MOV 
MOV 



22 



OT.EDF.ERRHP 
022.ERRNBR 
OEM 31 .ERRHSG 
OERRU^ERRBLK 



G6 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 46-i 
CKSEOM — CHECK RSOM, REOM 



SEQ 0071 



3107 
3108 



3109 
3110 
3111 
3112 
3113 
3114 



007034 

007034 
007042 
007050 
007056 
00 7064 
007066 
007070 
007072 



{STACK "REOM NOT CLEARED" MSG 
GTOF EM30,ERR12 



012737 
012737 
012737 
012737 
000261 
000401 
000241 
000205 



000001 
000027 
014444 
020714 



002172 
002174 
002176 
002200 



SEC 

BR 6* 
5$: CLC 
6$J RTS R5 



QUEUE "DEVICE FATAL" 



;SET C BIT TO FLAG ERROR 

j TAKE ERROR EXIT 

{CLEAR C BIT FOR NO ERRORS 

{RETURN 



ERROR 4 23 




MOV 


OT.EDF.ERRTYP 


MOV 


423.ERRNBR 


MOV 


OEM30.ERRMSG 


MOV 


0ERR12.ERRBLK 



H6 



CNOMEAO 0MV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 47 
,, % , CHKTSO -- CHECK TRANSMIT SERIAL OUT BIT 



SEQ 00 72 



3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 



3137 
3138 
3139 
3140 
3141 
3142 
3143 



3144 
3145 
3146 
3147 
3148 



007074 
007074 
007102 
007106 
007110 
007112 
007116 
007120 
007126 

007130 

007130 
00 7136 
007144 
007152 
007160 
007162 

007164 
007172 

007174 

007174 
007202 
007210 
007216 
007224 
007^26 
007230 
007232 



012737 
004537 
122000 
000000 
032725 
001422 
132737 
001040 



012737 
012737 
012737 
012737 
000261 
000423 

132737 
001416 



012787 

012737 
012737 
012737 
000261 
000401 
000241 
000205 



000007 
003566 



000001 
000010 



000001 
000030 
015536 
020714 



002336 



007110 



002172 
002174 
002176 
002200 



000001 
000031 
015556 
020714 



002172 
002174 
002176 
002200 



.SBTTL CHKTSO -- CHECK TRANSMIT SERIAL OUT BIT 

(* CHKTSO - THIS SUBROUTINE CHECKS FOR THE PROPER STATE OF TSO IN THE USYRT 
j* STATUS REGISTER, AND SETS THE "C" BIT IF IT IS NOT SET TO THE STATE 
j* OF BIT IN THE WORD FOLLOWING THE CALL. 

i* CALLING SEQUENCE : 

j* JSR R5, CHKTSO 

i* .WORD <BIT IS EXPECTED VALUE OF TSO 

CHKTSOs 



1$; 



MOV 

JSR 

USTATR 

.WORD 

BIT 

BEQ 

BITB 

BNE 



47.REGNUM 
R5.READI 



*BIT0.CR5)» 

2$ 

♦TSO, II 

3$ 

j*** STACK "TSO NOT 
GTDF EM100.ERR12 



(SET REG NO. FOR POSSIBLE ERROR REPORT 
{READ USYRT STATUS 



jGET EXPECTED STATE OF TSO 
(BR IF EXPECTED TSO * 
(SEE IF TSO ■ 1 
(BR IF TSO - 1 
SET" ERROR *** 

j QUEUE "DEVICE FATAL" 



000010 007110 2$; 



SEC 
BR 

BITB 
BEQ 
j *♦ * 
GTDF 



4$ 

*TS0,1$ 
3$ 

STACK "TSO NOT 
EM101.ERR12 



*SET C BIT TO FLAG ERROR 
(TAKE ERROR EXIT 

(SEE IF TSO - 
(BR IF TSO • 
CLEARED" ERROR **♦ 



ERROR 

MOV 
MOV 
MOV 
MOV 



24 



♦T.EDF.ERRTYP 
*24,ERRN6R 
0EM100.ERRMSG 
♦ERR12.ERRBLK 



! 



QUEUE "DEVICE FATAL" 



31: 

45; 



SEC 
BR 
CLC 
RTS 



4$ 
R5 



(SET C BIT TO FLAG ERROR 

(TAKE ERROR EXIT 

(CLEAR C BIT FOR NO ERRORS 

(RETURN 



ERROR 

MOV 
MOV 
MOV 
MOV 



25 



OT.EDF.ERRTYP 
♦25.ERRN6R 
♦EM101.ERRMSG 
0ERR12.ERRBLK 



16 
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INITRN -- INir TRANSMISSION OF A MESSAGE 



SEQ 0073 



3150 










3151 










3152 










3153 










3154 










3155 










3156 










3157 










3158 










3159 










3160 










3161 










3162 










3163 










3164 










3165 










31.66 










3167 


007234 








3168 


007234 


010146 






3169 


007236 


004537 


003712 




3170 


007242 


120000 






3171 


007244 


000031 






3172 


007246 


004537 


003712 




3173 


007252 


120000 






3174 


007254 


000030 






3175 


007256 


112537 


007270 




3176 


007262 


004537 


003712 




3177 


007266 


120404 






3178 


007270 


OOOOOO 






3179 


007272 


112537 


007304 




3180 


00/276 


004537 


003712 




3181 


00 7302 


120405 






3182 


007304 


OOOOOO 






3183 


007306 


112537 


007332 




3184 


007312 


005037 


002402 




3185 


007316 


113737 


007332 


002402 


3186 


007324 


004537 


003712 




3187 


007330 


120407 






3188 


007332 


OOOOOO 






3189 


007334 


004537 


O0371P 




3190 


007340 


120013 






3171 


007342 


0OO20O 






3192 


007344 


004537 


003712 




3193 


007350 


120006 






3194 


007352 


000300 






3195 


007354 


004537 


003712 




3196 


007360 


12000/ 






319/ 


00/362 


OOOOOO 






3198 


00 7564 


004537 


005410 




3199 


007370 


000110 






3200 


007372 


103454 






3201 










3202 


0073/4 


013737 


00/530 


007414 


3203 


007402 


14253 7 


007414 




3204 










3205 


007406 


00453/ 


003712 




3206 


007412 


120000 







SBTTL INITRN -- INJT TRANSMISSION Or A MESSAGE 

********************* *******************************************, ; ; ************ 

* INITRN - THIS SUBROUTINE INITIATES TRANSMISSION OF A MESSAGE, BY LOADING 



THE USYRT PCSARL, H AND THE PCR WITH THE DATA PASSED IN THE 2 WORDS 
FOLLOWING THE CALL i LOADING AND CLOCKING 1 SOM UNTIL THE FIRST 
SYNCH OR FLAG HAS BEEN SERIALIZED IN THE USYHT, THE PROGRAM MONITORS 
ALL THE FLAGS IN THE USYRT STATUS REGISTER THROUGHOUT THE PROCESS. 
IF THE SUBROUTINE DETECTS AN ERROR, THE ERROR INFORMATION IS STACKED 
AND THE C-BIT SET, WHICH LEAVES THE ERROR REPORTING AT THE DISCRETION 
OF THE CALLING ROUTINE OR SUBROUTINE, 



CALLING SEQUENCE : 

* JSR R5, INITRN 

* .WORD <VALUE TO LOAD INTO USYRT PCSARL, H> 

* .WORD <VALUE TO LOAD INTO USYRT PCR (PASSED IN LO BYTE)> 

* ^SPECIAL VIAORB MASKING VALUE. (PASSED IN HI BYTE)> 
***************************************************************************** 

INITRN: 

l SAVE Rl 

{RESET THE USYRT 

{CLEAR USYRT RESET BIT 



1$ 



2$ 



3$ 



MOV 


Rl, (SP) 


JSR 


R5.WRITEI 


VIAORB 




RTSNO»DTR!PRESET 


JSR 


R5.WRITEI 


VIAORB 




RTSNO'DTR 


MOVB 


(R5)*.l$ 


JSR 


R5.WRITEI 


PCSARL 




.WORD 





MOVB 


(R5)*,2* 


JSR 


R5.WRITEI 


PCSARH 




.WORD 





MOVB 


(R5)>,3$ 


CLR 


SAVLEN 


MOVB 


3$,SAVLEN 


JSR 


R5.WRITEI 


PCR 




.WORD 





JSR 


R5.WRITEI 


VIAACR 




200 




JSR 


R5.WRTTFI 


VIATIC 




300 




JSR 


R5.WRITEI 


VIAUD 




000 




JSR 


R5,CKUSTS 



jGET VALUE TO LOAD 
; LOAD USYRT PCSARL 



{GET VALUE TO LOAD 
l LOAD USYRT PCSARH 



INTO USYRT PCSARL 



INTO PCSARH 



{GET VALUE TO LOAD INTO PCR 



{SAVE CHAR 
j LOAD USYR 



LENGTH 
' PCR 



j SET ACR FOR Tl ONE -SHOT MODE 



{LOAD VIA TIL -I. 



jLOAD VIA T1L-H 



110 
BCS 



71 



jCHK USYRT 
i TBMT • 1 
j IF ERROR, 



STATUS 
TSO • 



FOR 

1 



INITD STATE 



EXIT SUBROUTINE 



MOV 20$ ,13$ 

BTCH (R5)»,1M 

JSR R5»WRIT£1 
VIAORU 



»* SET UP DEF-AtH.. I VIAORB PARAMEHRS 
}♦ CI EAR AN> SPECIFIED VIAORB BITS. 

jSET UP USYRT 



J6 



CNDMEAO DMVU LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 48-1 
, tt .INITRN -- INIT TRANSMISSION OF A MESSAGE 



3207 


007414 


000142 




3208 








3209 


007416 


004537 


003712 


3<?10 


007422 


120403 




3211 


007424 


000001 




32?.? 


007426 


004537 


003712 


3213 


007432 


120402 




3214 


007434 


000226 




3215 


007436 


004537 


006014 


3216 


007442 


000000 




3217 


007444 


103427 




321.6 


007446 


005001 




3219 


007450 


004537 


012072 


3220 


007454 


000001 




3221 


007456 


004537 


003566 


3222 


007462 


122000 




3223 


007464 


000000 




3224 


007466 


132737 


000100 


3225 


007474 


001010 




3226 


007476 


005201 




322' 


007500 


020127 


000003 


3228 


007504 


002761 




3229 


007506 


004537 


006014 


3230 


007512 


OOOOOl 




3231 


007514 


103403 




3232 


007516 


004537 


005514 


3233 


007522 


OOOOOl 




3234 


00 7524 


012601 




3235 


007526 


000205 




3236 








3237 


007530 


000142 




3238 








3239 









13* 



007464 



4$: 



5$; 



6$; 
7$: 



20*; 



TXENiRXENITTLOOP 



JSR 


R5,WRI T EI 


TDSRH 




TSOM 




JSR 


R5.URITEI 


TOSRU 




S'NCH 




JSR 


R5.CKTBMT 







BCS 


7$ 


Cl.R 


Rl 


JSR 


R5.STEPLU 


1 




JSP 


R5.READI 


USTATR 




. WORD 





BITB 


0TBMT.5* 


BNE 


6$ 


INC 


Rl 


CMP 


Rl,*3 


BLT 


4$ 


JSR 

1 

BCS 


R5.CKTBMT 


7$ 


JSR 
i 


R5.CKTACT 


MOV 


(SP)»,R1 


RTS 


R5 



TXENSRXENJTTLQOP 



SEQ 00 74 



}♦ THIS VALUE MIGHT BE MODIFIED ABOVE 
I SET TSOM IN USYRT 

;LOAD SYNCH CHAR INTO TX BUF 



jCHK FOR TBMT - 

j IF ERROR, EXIT SUBROUTINE 
rINIT CYCLE COUNTER 
{CLOCK LU FOR 1 CYCLE 

{READ USYRT STATUS REG 



jSEE IF TBMT IS SET YET 

iBR IF YES 

iINCR CYCLE COUNTER 

{SEE IF 3 CYCLES DONE YET 

} BR IF LESS THAN 3 CYCLES 

{GO STACK "TBMT NOT SET" MSG 

l IF ERROR, EXIT SUBROUTINE 
jCHK FOR TXACT » 1 

t RESTORE Rl 

{RETURN (IF C » 1, WF HAD AN ERROR) 

{DEFAULT VALUE FOR VIAORB: ENABLE 
jTX AND RX ON USYRT, ASSERT RTS t OTR 



I<6 
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....CKLPBK -- DETERMINE IF TEST CAN BE RUN 



SEQ 0075 



324 1 
524 c? 
324? 
3244 
3245 
3246 
324? 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 

326 7 
3264 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 

327 7 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
329b 
3297 



007532 
007532 
007536 
007540 
007544 
007546 
007552 

007556 
007564 
007566 



0075 72 
007600 
007602 
007610 
007612 



00 7616 
00 7622 
007624 
007630 
007634 
007636 
007644 
007646 
007652 



007656 
007662 
00 7664 
007670 



032725 
001407 
005737 
001002 
000137 
000137 

023727 
001002 
000137 



026527 
001406 
026527 
001422 
000137 



0057 37 
001402 
000137 
C05737 
001406 
023727 
001402 
000137 
000137 



005737 
001002 
00013/ 
005737 



100000 

002472 

010072 
010076 

0024 72 000004 

010076 

177776 000001 
1777 76 000002 
007742 

002470 

010040 
0024 72 

002472 000001 

010006 
010072 

0024 70 

010040 
0024 72 



. SBTTL CKLPBK •- DETERMINE IF TEST CAN BE RUN 

>>* + + + 4, + * + * + + + + + + + + + + + * + + + + + + + ** + + + *4, + + + *,+. + + + + + + * + +, + + « + * + *+ + + * + ** + * +,*** + ** + ** + 

i* CKLPBK - THIS SUBROUTINE DETERMINES IF THE TEST CALLING IT CAN BE RUN. THE 



TEST PASSES THE DESIRED MODEM INTERFACE TYPE IN THE WORD FOLLOWING THE 
CALL, AND IF A PROPER EXTERNAL LOOPBACK HAS BEEN PROVIDED BY THE 
OPERATOR FOR THAT INTERFACE, AND IF THE BAUO RATE IS CORRECT, A RETURN 
IS MADE WITH THE C BIT CLEARED, TO RUN THE TEST, IF NOT, A RETURN IS 
MADE WITH THE C BIT SET TO 1, SO THAT THE TEST CAN BE SKIPPED. 



IF 
BE 



BIT 
RUN 



15 IS SET IN THE 
UNLESS THE H3254 



WORD FOLLOWING 
ANO H3255 TEST 



THE CALL. THE TEST WILL NOT 
CONNECTORS ARE INSTALLED. 



IF THE PROGRAM PASSES ' 0' IN THE WORD FOLLOWING THE CALL 



WILL ATTEMPT TO RUN 
OR TEST CONNECTOR. 



WHICHEVER MODEM INTERFACE IS SELECTED 



THE 

BY CABLE 



5* 

J* 

5 + 

J + 

J* 

i* 

5* 

J + 

J* 

!* 

S* 

I* 

J* 

5 ♦ 

5* 

t + 

J* 

l* + + + + * + * + * + 4. + 4,*, + + + + ±* + it***.***********.****.****.**.**.** + + * + + + + + * + + + ** + ****.***** + 

CKLPBK; 

} SEE IF H3254.5 CHECK IS DESIRED 

iBR IF NOT 

j SEE IF H3254.5 INSTALLED 

}BR IF NOT 

} BR TO RUN TEST 

l GO TO SKIP TEST 



CALLING 
JSR 



SEQUENCE 
R5, CKLPBK 



.WORD <DE5IRED MODEM INTERFACE INFO> 



15: 
2$; 



NO 



BIT 
BEQ 
TST 
BNE 
JMP 
JMP 
EXTERNAL 
CMP 
BNE 
JMP 



<?TCCHEK,(R5)* 

2* 

T5TC0N 

1* 

46* 

48* 

LPBK, SKIP TEST 

TSTCON, <?4 

3* 

48* 



} SEE IF NO LPBK 
iBR IF LOOPBACK 
} G0 TO SKIP TEST 



!♦ + ♦ SEE IF AN INTERFACE IS REQUESTED ♦** 



3* 



CMP -2(R5),0INTGRL 

BEQ 8* 

CMP 2CR5),0EIAV35 

BEQ 16* 

JMP 32* 



tSEfc IF INTEGRAL MODEM REQUESTED 

l BR IF INTGRL MODEM REQUESTED 

\ SEE IF V.35 OR EIA REQUESTED 

iBR IF V.35 REQUESTED 

jNONE REQUESTED, FIND AN INTERFACE 



TO TEST 



j SEE IF INTEGRAL MODEM CAN BE RUN 



8*5 

10*: 
15*: 

12$: 

i SEE 

16*: 

18*: 



IF 



TST 
BEQ 
JMP 
TST 
BEQ 
CMP 
BEQ 
JMP 
JMP 

V.35 

TST 

BNE 

JMP 
TST 



BRDTYP 

10* 

425 

TSTCON 

12* 

TSTCON, 01 

12* 

40* 

46* 



t SEE IF M8064 

jBR IF M8064 

iWRONG OPTION, GO TO SKIP TEST 

j SEE IF H3254, H3255 USED 

iBR IF YES 

jSEE IF OPERATOR SPEC'D INTEGRAL MODEM 

jBR IF YES, TO RUN I EST 

jWRONG INTERFACE, GO SKIP TEST 

l GO TO RUN TEST 



OR 



EIA CAN 
BRDTYP 

18* 
42 5 
TSTCON 



BE RUN 



l SEE IF 

iBR V 

j WRONG 



M8053 BOARD 
M805 3 

OPTION, 



I SEE IF H3254 



GO TO 
H3255 



SKIP 
USED 



TEST 
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SEQ 00 76 



3298 
3299 

3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 



3321 
3322 
3323 
3324 
3325 
3326 



3327 
3328 
3329 
3330 
3331 
3332 



3333 

3334 
3335 
3 336 
333/ 
333fi 
3339 



007674 
007676 
007702 
007710 
007712 
007720 
00772? 

007726 
007734 
007736 



007742 
007746 
007750 



007754 
007754 
007762 
007764 
007764 
007770 
007774 
007776 
010000 
010004 

010006 
010006 
010014 
010016 
010016 
010022 
010026 
010030 
010032 
0.10036 



0.10040 
010046 
010050 
010050 
010054 
010060 
010062 
010064 
010070 



010072 
010074 



001002 
000137 
023727 
001006 
023727 
001766 
000137 

023727 
001760 
000137 



005737 
001343 
000137 



023727 
001063 

012746 
012746 
010600 
104417 
062706 
000434 



023727 
001046 

012746 
012746 
010600 
104417 
062 706 
000417 



023727 
001031 

C12746 
012746 

010600 
104417 
062706 
000402 



000241 
000417 



013762 
000001 



000004 



000004 



000003 
000001 



000002 28$ 



010072 
002472 

0024 70 

010006 

002472 

010006 

002470 
007652 



002412 000001 



20$ 
23$ 



000004 



BNE 
JM° 
CMP 
BNE 
CMP 
BEQ 
JMP 

CMP 
BEQ 

JMP 



23' 

46 

TSTCON.03 

28$ 

BRDTYP, 01 

20$ 

40$ 

TSTCON.02 

20$ 
40$ 



iBR IF NOT 

jGO RUN THE TEST 

,5EE IF OPERATOR SPEC'D V . 35 

jBR IF NO 

jTSTCOM MATCH BRDTYP? 

:YES: RUN TEST 

{WRONG INTERFACE, GO SKIP TEST 



i SEE IF OPERATOR SPEC'D EIA 
jBR IF YES, TO RUN EIA 
j WRONG INTERFACE, GO SKIP 



TEST 



}*** NO INTERFACE REQUESTED - FIND ONE TO TEST *** 



32$} 



TST 
BNE 
JMP 



BRDTYP 

16$ 
12$ 



{SEE IF INTEGRAL MODEM SELECTED 

jBR IF NOT CTEST FOR V35/EIA) 

l SEE IF INTEGRAL MODEM CAN BE RUN 



;PRINT "FOR BAUO RATE SPECIFIED," 
38$ t 

CMP STARES, 01 

BNE 50$ 

PRINTF 0FMT3O 



{SEE IF THIS IS FIRST PASS SINCE STA OR RES 
{BR IF NOT, TO SKIP PRINTING 



BR 



48$ 



j GO TO PRINT "TEST NOT RUN" 



MOV 


0FMT3O.-CSP) 


MOV 


♦1. CSP) 


MOV 


SP.RO 


TRAP 


CSPNTF 


ADD 


04, SP 



002412 000001 



014017 
000001 



{PRINT "IMPROPER CONNECTOR TYPE SPECIFIED" 
40$; 

CMP STARES, ^1 

BNE 50$ 

PRINTF 0FMT31 



BR 



48$ 



iSEE IF THIS IS FIRST PASS SINCE STA OR RES 
iBR IF NOT, TO SKIP PRINTING 

MOV 
MOV 
MOV 
TRAP 
ADD 
{GO TO PRINT "TEST NOT RUN" 



0TMT31.-CSP) 
*1.-(SP) 

SP.RO 
C$PNTF 
04, SP 



{PRINT "FOR OPTION SPECIFIED." 



002412 000001 42$! 



014065 
000001 



CMP 
BNF 
PRINTF 



ST ARES, 01 
50$ 

0FMT32 



j SEE IF THIS IS FIRST PASS SINCt STA OR RES 
{BR IF NOT TO SKIP PRINTING 



BR 



48$ 



{GO TO PRINT "TEST NOT RUN" 



MOV 


0FMT32, CSP) 


MOV 


01, (SP) 


MOV 


SP.RO 


TRAP 


C$PNTE 


ADD 


04.SP 



{♦♦♦ BRANCH HERE 10 RUN TEST 
46$: CI C 

BR 52 $ 



*** 



iCl.f AH C BIT TO RUN TEST 

ii-:xit 



{++* BRANCH HERE TO SKIP TEST *** 



Mr 



o 
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. ...CKLPBK -- DETERMINE IF TEST CAN BE RUN 



SEQ 0077 



3340 






;PRINT 


"TEST XX 


NOT RUN" 


3341 010076 






48$: 






334? 010076 


023727 


002412 000001 




CMP 


STARES, 41 


3343 010104 


001012 






8NE 


50$ 


3344 010106 








PRINTF 


GFMT19.TSTNUM 


010106 


013746 


002414 








010112 


012746 


013452 








010116 


012746 


000002 








010122 


010600 










010124 


104417 










010126 


062706 


000006 








3345 010132 


000261 




50$: 


SEC 




33<o 010134 


000205 




52$: 


RTS 


R5 


334 7 












3348 












3349 













j SEE IF THIS IS FIRST PASS SINCE STA OR RES 
|BR IF NOT, TO SKIP PRINTING 





MOV 


TSTNUM, -CSP) 




MOV 


#FMT19,-(SP) 




MOV 


#2. -CSP) 




MOV 


SP.RO 




TRAP 


C$PNTF 




ADD 


#6 , SP 


{SET C BIT TO SKIP TEST 






jRETURN 







N6 
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TXCHAR -- TRANSMIT A CHARACTER 



SEQ 0078 



3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

339 5 

32*94 

3 595 

3396 

339 7 
3 398 
3399 
3400 
3401 
3402 

340 3 
34Q4 



010136 
010136 
010140 
010142 
010146 
010152 
010154 
010156 
010160 
010162 
010164 
010166 
010172 
010174 
010176 
010200 

010202 
010206 

010210 
010214 
010216 
010220 
010224 
010226 
010230 
010232 
010236 
010240 
010242 
010244 
010246 



010146 
010246 
012537 
004537 
120402 
000000 
005001 
005002 
112502 
001425 
004537 
000001 
103421 
020102 
001414 

131527 
001004 

004537 
000000 
103410 
004537 
000001 
005201 
000756 
004537 
000001 
012602 
012601 
005205 
000205 



010154 
003712 



005514 



000200 
006014 
012072 

006014 



.SBTTL ....TXCHAR -- TRANSMIT A CHARACTER 

}* TXCHAR - THIS S^ROUTINE INITIATES TRANSMISSION OF A CHAR BY LOADING 
"•"HE USYRT TDSRL WITH THE DATA PASSED IN THE LO BYTE OF THE WORD 
FOLLOWING THE CALL, AND CLOCKS THE LINE UNIT WITH THE NUMBER CF CYCLES 
PASSED IN THE SECOND WORD FOLLOWING THE CALL. THE PROGRAM CONTINUALLY 
MONITORS TBMT AND TXACT THROUGHOUT THE PROCESS. 
IF THE SUBROUTINE DETECTS AN ERROR, THE ERROR INFORMATION 
IS STACKED, AND THE C-BIT SET, WHICH LEAVES THE ERROR REPORTING AT THE 
DISCRETION OF THE CALLING ROUTINE OR SUBROUTINE. 



(* 

i* 

{* 
{* 
}* 
i + 
}* 
s* 
J* 

5* 
i + 

i* 



CALLING SEQUfcNCE ; 

JSR R5, TXCHAR 

.WORD <DATA FOR TDSRL IN LO BYTE> 

.WORD <NUMBER OF CYCLES TO CLOCK (IN LO BYTE)> 

<SWITCH TO DISABLE INITIAL TBMT»0 CHECK (MSB IN HI BYTE)> 

TXCHAR; 

Rl.-CSP) jSAVE Rl 

R2,-(SP) {SAVE R2 

(R5)»,l* {GET DATA FOR TDSRL 

R5,WRITEI {LOAD DATA INTO TDSRL 



1$ 



3$ 



7$j 

5$: 
6*: 



MOV 

MOV 

MOV 

JSR 

TDSRL 

.WORD 

CLR 

CLR 

MOVB 

BEQ 

JSR 

1 

BCS 

CMP 

BEQ 

BITB 
BNE 

JSR 



BCS 

JSR 

1 

INC 

BR 

JSR 

1 

MOV 

MOV 

INC 

R1S 





Rl 

R2 

CR5)f ,R2 

6$ 

R5.CKTACT 

6$ 

R1.R2 

5$ 



lINIT CYCLE COUNT AND CLSAR C BIT 
I CLEAR REQ'D CYCLE COUNT 
jGET DESIRED NO. OF CYCLES 
}BR IF NO CLOCKING DONE 
I CHECK TXACT - 1 

}BR TO EXIT IF ERROR 

iSEE IF REQUIRED CYCLES DONE YET 

I BR IF YES 



CR5) 

7$ 



0NCTBMT 



J* 
J* 



CHECK FOR 
BR IF MSB 



"TBMT-0 CHECK 
IS NOT SET 



DISABLE 



R5.CKTBMT 

6$ 
R5.STEPLU 

Rl 
3* 

R5.CKTBMT 

(SP)» ,R2 

(SPU.R1 

R5 

R5 



} CHECK FOR TBMT - 

{BR TO EXIT IF ERROR 
{CLOCK LU FOR 1 CYCLE 

;INCR CYCLE COUNT 
jKEEP CLOCKING 
,CHK TBMT - 1 



{RESTORE R2 
{RESTORE Rl 
{ADJUST R5 FOR SANt 
{RETURN (WITH C BIT 



RETURN 
• 1 IF 



ERROR) 



B/ 
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....TXCTRL •- CONTROL MESSAGE TRANSMISSION (TDSRH) 



SEQ 00 79 



340O 








MO' 








3408 








3409 








3410 








3411 








3412 








3413 








3414 








34 IS 








341b 








34 1 7 








34ltt 








3419 








3420 








3421 








3422 


010250 






3423 


010250 


010146 




3424 


010252 


010246 




3425 


010254 


012537 


010266 


3426 


010260 


004537 


003712 


3427 


010264 


120403 




3428 


010266 


000000 




3429 


010270 


005001 




3430 


010272 


012502 




3431 


010274 


001422 




34 32 


010276 


004537 


005514 


3433 


010302 


000001 




34 34 


010304 


103416 




34 35 


010306 


020102 




34 36 


010510 


001411 




3437 


010312 


004537 


006014 


34 38 


010316 


000000 




34 39 


010320 


103410 




3440 


010322 


004537 


01207? 


3441 


010326 


000001 




3442 


010330 


005201 




3443 


010332 


000761 




3444 


010334 


004537 


006014 


3445 


010340 


OOOOOl 




3446 


010342 


012602 




344 7 


C10344 


012601 




3448 


010346 


000205 




344<) 








3450 









SBTTl TXCTRL -- CONTROL MESSAGE TRANSMISSION (TDSRH) 



♦ TXCTRL - THIS SUBROUTINE ALLOWS CONTROL Of MESSAGE TRANSMISSION By LOADING 

♦ THE USYRT TDSRH WITH THE OATA PASSEO IN 1 HE LO BYTi Of THE WORD 

♦ FOLLOWING THE CALL, AND CLOCKS THE LINE UNIT WITH THE NUMBER Of CYCLES 

♦ PASSED IN THE SECONO WORD FOLLOWING THE CALL, THE PROGRAM CONTINUALLY 

♦ MONITORS TBMT ANO TXACT THROUGHOUT THE PROCESS. 

♦ IF THE SUBROUTINE DETECTS AN ERROR, THE ERROR INFORMATION 

♦ IS STACKED, ANO THE C BIT SET. WHICH LEAVES THE ERROR REPORTING AT THE 

♦ DISCRETION OF THE CALLING ROUTINE OR SUBROUTINE, 

* 



CALLING 
JSR 
.WORD 
.WORD 



SEQUENCE : 

R5 TXCTRL 

<DATA FOR TDSRH IN LO BYTE> 

<NUMBER OF CYCLES TO CLOCK> 



TXCTRL: 



21 



31: 



51 

61 



MOV 

MOV 

MOV 

JSR 

TDSRH 

.WORD 

CLR 

MOV 

BEQ 

JSR 

1 

BCS 

CMP 

BEQ 

JSR 



BCS 

JSR 

1 

INC 

BR 

JSR 

1 

MOV 

MOV 

NTS 



Rl, (SP) 
R2. (SP) 
(R5).,2ft 
R5.WRITEI 



Rl 

(R5)»,R2 

61 

R5.CKTACT 

61 

R1.R2 
51 

R5.CKTBMT 

6ft 

R5,STEPLU 

Rl 
31 

R5.CKTHMT 

CSP)..R2 
v SP)»,Hl 
R5 



I SAVE Rl 

I SAVE R2 

iGET DATA FOR TDSRH 

jLOAD DATA INTO TDSRH 



lINIT CYCLE COUNT ANO CLEAR C BIT 
iGET DESIRED NO. OF CYCLES 
t BR IF NO CLOCKING DONE 
iCHECK TXACT • 1 

iBR TO EXIT IF ERROR 

I SEE IF REQUIRED CYCLES DONE YfcT 

jBR IF tES 

(CHECK FOR TBMT - 

iBR TO EXIT IF ERROR 
iCLOCK LU FOR 1 CtCLE 

»INCR C>CLE Q&MT 
jKEEP CLOCKING 
iCHK TBMT • 1 



iRESTORE R2 
iRbSTOHh Rl 

iRETURN (WITH 



C BIT • 1 IF ERROR) 



c/ 
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,.». RXCHAR . - RECEIVE A CHARACTER 



SEQ 0080 



345*? 
34 S3 
3454 
3455 
5456 

34 5 ; 

3458 

3459 

3460 

3461 

346c? 

3463 

3464 

3465 

3466 

346 7 

3468 

3469 

3470 

3471 

34 72 

34 73 

34 74 

34 75 

34 76 

3177 

34 78 

34 79 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

5491 

3492 

3493 

3494 

3495 



3496 
349/ 
3498 
3499 
3500 
3501 
350? 
3503 



010350 
010350 
01035c 
010354 
010360 
010362 
010364 
010370 
010372 
010374 
010376 
010402 
010410 
010412 
010420 
010424 
01C430 
010432 
010436 
010440 
010442 
010450 
010452 

010460 

010460 
010466 
010474 
010502 
010510 
010514 
010520 
010524 
010530 
010534 

010542 



010146 
010246 
004537 
120401 
000000 
0O4537 
120400 
000000 
111501 
042701 
023727 
001005 
142737 
142701 
123701 
001462 
004537 
122000 

oooooo 

132737 
001421 

012737 



012737 
012737 
012737 
012737 
00013/ 
005037 
005037 
110137 
005037 
113737 



003566 



003566 



177400 
0024C2 

000200 
0O020O 
010372 

003566 



000002 
000007 



000001 
000032 
014626 
020714 
01161C 
002536 
002324 
002324 
00?326 
01037^ 



.SBTTL , ...RXCHAR -- RECEIVE A CHARACTER 



♦ RXCHAR • THIS SUBROUTINE READS THE USYRT RD5R AND CHECKS THE CONTENTS 

♦ AGAINST THE DATA PASSED IN THE WORD FOLLOWING THE CALL. 

♦ IF BITO • IN THE SECONO WORD FOLLOWING THE CALL, THE RERR BIT IS 

♦ NOT CHECKED AGAINST THE EXPECTED VALUE. THEN, IT CLOCKS 

♦ THE LINE UNIT FOP THE NO. Of' CYCLES PASSED IN THE THIRD WORD 

♦ FOLLOWING THE CALL. THE PROGRAM CONTINUALLY MONITORS RDA ANO RXACT. 

♦ IF THE SUBROUTINE DETECTS AN ERROR, THE ERR0« INFORMATION 

♦ lb STACKED. ANO THE C BIT SET, WHICH LEAVES THE ERROR REPORTING AT THE 

♦ DISCRETION OT THE CALLING ROUTINE OR SUBROUTINE. 



CALLING SEQUENCE : 

JSR R5, RXCHAR 

.WORD EXPECTED RDSRL IN LO BYTE. RDSRH IN HI BYTE* 

.WORD <-0 FOR NO RERR CHK , -1 FOR RERR CHK > 

.WORD <NUMBER OF CYCLES TO CLOCK (IN LO BYTE)* 

< SPECIAL DISABLE SWITCHES: NOCRDA.NTCPDA.NCRACTC IN HI ByTE)> 



RXCHAR 

2$: 
1$: 



00034 7 
010372 



31 : 



4U 



01O440 
002336 



002172 
002174 
0021 76 
002200 



MOV 
MOV 
JSR 
RDSRH 
.WORD 
JSR 
RDSRL 
.WORD 
MOVB 
BIC 
CMP 
BNE 
BICB 
BIL'B 
CMPB 
BEQ 
JSR 

USTATR 
.WORD 
BUB 
BEO 
MOV 



R1,-CSP) 
R2, -CSP) 
R5.READI 



j SAVE 
I SAVE 
{READ 



Rl 
R2 

RDSRH 



READ RDSRL 



iBR IF 

{CLEAR 



R5.READI 



CR5),R1 

♦177400, Rl 

SAVLEN,#TXDL.!RXDL j SEE 

31 

•BIT7.U 

♦BIT7.R1 
II, Rl 
6$ 
R5,READI 



0TXU,4I 
51 
•7.REGNUM 



jGET EXPECTED RDSRL 
,MASK OFF UNUSED BITS 



IF 7 -BIT CHARS BEING USED 
NOT 7-BIT CHARS 
8TH BIT FOR COMPARE 



, COMPARE RCV'D CHAR TO EXPECTED 

jBR IF MATCH 

jREAD USYRT STATUS REG 



{STACK "TX UNDERRUN" ERROR 



I SEE IF TX 
}BR IF NOT 
{SET USYRT 



UNOERRUN OCCURRED 

REG NO. FOR STATUS REG 



GTDF 



EM54.ERR12 



QUEUE "DEVICE FATAL" 



002326 



5$: 



l STACK 



JMP 


20 1 


CI R 


REGNUM 


CLR 


GDATA 


HOVB 


R1.GDA1A 


CLR 


BOATA 


MOVB 


ll.BDATA 


"RCV'D 


DATA MISCOMPARE" 


GTDF 


EM34.ERR10 



{TAKE ERROR EXIT 

{SET USYRT RFG NO, FOR RDSRL 

t SET EXPECTED DATA 



ERROR o 


26 








MOV 




OT.EDF 


,ERRT 


P 


MOV 




026,eRRN6R 




MOV 




0f M54. 


ERRMSi 


i 


MOV 




0ERR12»ERR8LK 



jSET ACTUAL DATA 
ERROR 



DY 
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, ...RXCHAR -- RECEIVE A CHARACTER 



3504 
550*3 

3506 
350? 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 



010542 
010550 
010556 
010564 
0105 72 
010576 
010602 
010606 
010612 
010614 
010620 
010626 
010632 
010636 
010642 
010650 
010656 
010664 

010666 
010672 
010674 
010 702 

010704 



010704 
010712 
010720 
010726 

3525 010 734 

3526 010740 
352 7 010746 
3528 

3529 010750 



010750 
010756 
010764 
010772 
011000 



011004 
011010 
011012 
011020 



3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 011022 

011022 
011030 
011036 
011044 

5538 011052 
3539 011056 
1540 011064 



012737 
012737 
012737 
012737 
000137 
116501 
042701 
123701 
001016 
000137 
012737 
005037 
110137 
005037 
113737 
012757 
032 765 
001447 

132701 
001022 

132737 

001440 



01273 7 
012737 
012737 
012737 
000137 
132737 
001016 



012737 
012737 
012737 
012737 
000137 

132701 
001022 

132737 
001440 



012737 
012737 
012737 
012737 

000137 
132737 
001016 



000001 
000033 
014502 
02036 % 
011610 
000001 
177400 
010362 

0114 74 
000001 
002324 
002324 
002326 
010362 
000001 
000001 



000200 
000200 



000001 
O00034 
014530 
020714 
OllblC 
000200 



000001 
000035 
014551 
020714 
011610 



002172 
002174 
002176 
002200 



002336 



002326 
002336 
000002 



010362 



002172 
002174 
002176 
002200 



000010 

000010 010362 



000001 
000036 
014340 

020714 
011610 
000010 



6$ 



7$ 



j CHECK 



; STACK 



002172 
002174 
002176 
002200 

010362 8$ 



t STACK 



j CHECK 
9$j 



j STACK 



002172 
002174 
002176 

002200 

010362 10* 



JMP 


20$ 


MOVB 


KR5) ( R1 


BIC 


#177400, Rl 


CMPB 


2I.R1 


BNE 


7$ 


JMP 


171 


MOV 


♦l.REGNUM 


CLR 


GOATA 


MOVB 


RUGDATA 


CLR 


BOATA 


MOVB 


2$,B0ATA 


MOV 


Ol.REGNUM 


BIT 


♦RERCHK.2CR5) 


BEQ 


9$ 


RERR BIT 


BITB 


♦RERR.R1 


BNE 


8$ 


BITB 


*RERR,2$ 


BEQ 


9$ 


"RERR 


NOT CLEARED" MSG 


GTOF 


EM35.ERR12 



JMP 


20) 


BITB 


*«ERR,2$ 


BNE 


9$ 


"RERR 


NOT SET" MSG 


GTOF 


EM36.ERR12 



JMP 

ROR BIT 

BITB 

BNE 

BITB 

BEQ 
"ROR NOT 

GTDF 



20$ 

0R0R»R1 

10$ 

*R0R f 2$ 

11$ 

CLEARED" MSG 
EM16.ERR12 



SEQ 0081 



j QUEUE "DEVICE FATAL" ERROR 27 

MOV 
MOV 
MOV 
MOV 

I TAKE ERROR EXIT 

I GET ROSRH 

,MASK OFF UNUSED BITS 

{COMPARE RCV'D STATUS TO EXPECTED 

I BR IF MISMATCH 

j CONTINUE 

I SET USYRT REG NO. FOR RDSRH 

j SET EXPECTED DATA 

j SET ACTUAL DATA 

I SET REG NO. FOR PRINTOUT 

jSEE IF RCV ERROR BIT SHOULD BE IGNORED 

|BR IF YES 

j SEE IF EXPECTED BIT - I 
I BR IF YES 

»SEE IF ACTUAL BIT - 
18R 1^ YES 



j QUEUE "DEVICE FATAL" ERROR 28 

MOV 
MOV 
MOV 
MOV 

j TAKE ERROR EXIT 

j SEE IF ACTUAL BIT - 1 

»BR IF YES 



0T.EDF.ERRTYP 
*27,fRRN8R 
*EM34,ERRMSG 
*ERR10,ERRBLI< 



OT.EDF.ERRTYP 
♦28.ERRNRR 
JEM35.ERRMSG 
0ERR12.ERRBLK 



j QUEUE "DEVICE FATAL" ERROR Q 29 

MOV CT.EDF.ERRTYP 

MOV 029.ERRNBR 

MOV «EM36.ERRMSG 

MOV CERR12.ERRBLK 

j TAKE ERROR EXIT 



jSEE IF EXPECTED BIT - 
I BR IF YES 

I SEE IF ACTUAL BIT - 
I BR IF YES 



1 



QUEUE "DEVICE FATAL" ERROR £ 30 

MOV 
MOV 
MOV 
MOV 



JMP 


20$ 


BITB 


oR0R,2$ 


BNE 


11$ 



l TAKE ERROR EXIT 

i SEE IF ACTUAL BIT - 1 

jBR IF 1ES 



0T,EDF,ERRnp 
03O.ERRNBR 
4EM16.ERRHSG 
0ERR12.ERRBLK 



E.7 
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RXCHAR -- PECEIVE A CHARACTER 



SEQ 0082 



3541 
3542 



354 3 
3544 
3545 
3546 
354 7 
3548 
3549 
3550 



3551 
3552 
3553 
3554 
3555 



3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 



3564 
3565 

3566 
356 7 
3568 



3569 
3570 
3571 
3572 



011066 

011066 
011074 
011102 
011110 
011116 

011122 
011126 

011130 
011136 

011140 

011140 
011146 
011154 
011162 

011170 
011174 

011202 

011204 

011204 
011212 
011220 
011226 
011234 

011240 
011244 
011216 
011254 

011256 

011256 
011264 
011272 
011300 
011306 
011312 
011320 

011322 

011322 
011330 

011336 
011344 
011352 

011356 
011362 



{STACK "ROR NOT SET" MSG 

GTDF EM14 t ERR12 



012737 
012737 
012737 
012737 
000137 

132701 
001022 
132737 
001440 



012737 
012737 
012737 
012737 
000137 
132737 
001016 



012737 
012737 
012737 
012737 
000137 

132701 
001022 
132737 
001440 



012737 
012737 
012737 
012737 
000137 
132737 
001016 



012737 
012737 
012737 
012737 
000137 

132701 
001022 



000001 002172 

000037 002174 

014324 002176 

020714 002200 
011610 

000004 

000004 010362 



000001 
000040 
01A566 
020714 
011610 
000004 



000001 
000041 
014610 
020714 
011610 

000002 

000002 



000001 
000042 
014444 

020714 
011610 
000002 



000001 
000043 
014465 
020714 
01161C 

000001 



002172 
002174 
002176 
002200 



010362 



002172 
002174 
002176 
002200 



; CHECK 



j STACK 



JMP 20$ 

RABGA BIT 

BITB 0GABGA.R1 

BNE 12$ 

BITB *RABGA,2$ 

BEQ 13$ 
"RABGA NOT CLEARED" 

GTDF EM39.ERR12 



MSG 



002172 
002174 
002176 
002200 

010362 12$: 



JMP 20* 

BITB WABGA,2$ 

BNE 13$ 

; STACK "RABGA NOT SET" MSG 
GTDF EM40.ERR12 



l CHECK 
13$: 



I STACK 



JHP 
REOM BIT 

BITB 

BNE 

BITB 

BEQ 
"REOM NOT 

GTDF 



20$ 

♦PEOM.Rl 
14$ 

*«E0M # 2$ 
15$ 

CLEARED" MSG 
EM30.ERR12 



002172 
002174 
002176 
002200 

010362 14$ 



{STACK 



JMP 20$ 
BITB 0REOM,2$ 
BNE 15$ 

"REOM NOT SET" MSG 
GTDF EM31.ERR12 



j CHECK 
15$: 



JMP 
RSOM BIT 
BITB 
BNE 



20$ 

0RSOM.R1 

16$ 



j QUEUE "DEVICE FATAL" ERROR 4 31 

MOV OT.EDF,ERRTYP 

MOV *3l,ERRNBR 

MOV 0EM14.ERRMSG 

MOV <>ERR12,ERRBLI< 

{TAKE ERROR EXIT 

{SEE IF EXPECTED BIT - I 
j8R IF YES 

,SEE IF ACTUAL BIT - 
{BR IF YES 



QUEUE "DEVICE FATAL" ERROR « 32 

MOV 
MOV 
MOV 
MOV 



{TAKE ERROR EXIT 
{SEE IF ACTUAL BIT 
iBR IF YES 



j QUEUE "DEVICE FATAL" ERROR * 33 

MOV 
MOV 
MOV 
MOV 

,TAKE ERROR EXIT 

{SEE IF EXPECTED BIT - 1 
{BR IF YES 

tSEE IF ACTUAL BIT - 
{BR IF YES 



j QUEUE "DEVICE FATAL" ERROR * 34 

MOV 
MOV 
MOV 
MOV 

,TAKE ERROR EXIT 

{SEE IF ACTUAL BIT - 1 

iBR IF YES 



*T.EDF,ERRTYP 
032.ERRN8R 
0EM39.EHRMSG 
0ERR12.ERRBLK 



OT.EDF.ERRTYP 
♦33.ERRN8R 
4EM40.ERRMSG 
0ERR12.ERRBLK 



#T.EDF,ERRTYP 
d34>ERRN6R 
dEM30,ERRMSG 
0ERR12.ERRBLK 



I QUEUE "DEVICE FATAL" ERROR $ 35 

MOV OT.EDF.ERRTlP 

MOV 035.ERRNBR 

MOV 0EM3UERRMSG 

MOV 0ERR12*ERRBLK 

{TAKE ERROR EXIT 

iSEE IF EXPECTEO BIT - 1 
jBR IF YES 



F7 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-64 15:48 PAGE 52-3 
RXCHAR -- RECEIVE A CHARACTER 



SEQ 0063 



3573 011364 

3574 011372 
3575 

3576 011374 



011374 
011402 
011410 
011416 
011424 
011430 
011436 



3577 
3578 
3579 
3580 
3581 



3582 
3583 
3584 
3505 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 



011440 

011440 
011446 
011454 
011462 
011470 

011474 
011500 

011502 
011510 
C11512 
011516 
011520 

011522 
011524 

011526 
011534 
011536 
011542 
011544 

011546 
011552 
011554 
011556 

011560 
011566 
011570 
011574 
011576 

011600 
011604 
011606 
011610 
011614 
011616 
011620 



132737 
001440 



012737 
012737 
012737 
012737 
000137 
132737 
001016 



012737 
012737 
012737 
012737 
000137 

116502 
005001 

136527 
001004 
004537 
000001 
103433 

020102 
001415 

136527 
001004 
004537 
000000 
103421 

004537 
000001 
005201 
000751 

136527 
001004 
004537 
000001 
103404 

062705 
000241 
000403 

062705 
000261 
01260? 
012601 



000001 010362 



000001 
000044 
014406 
020714 
011610 
000001 



000001 
000045 
014427 
020714 
011610 

000004 



000005 
005654 



000005 
006154 

012072 

000005 
006154 

000006 
000006 



BITB *RS0M,2* 
BEG) 171 

{STACK "RSOM NOT CLEARED" MSG 
GTDF EM28.ERR12 



002172 
002174 
002176 
002200 

010362 16$: 



JMP 20$ 
BITB ORS0M.2* 
BNE 17$ 

; STACK "RSOM NOT SET" MSG 
GTDF EM29.ERR12 



002172 
002174 
002176 
002200 



000040 



17$: 
18$: 



31$: 



000200 



22$: 



000100 19$: 



30$: 

20$; 
21$: 



JMP 

MOVB 
CLR 

CITB 
BNE 

JSR 

1 

BCS 

CMP 
BEQ 

BITB 
BNE 

JSR 




JSR 

1 

INC 

BR 

BITB 

BNE 

JSR 

1 

BCS 

ADD 

CLC 

BR 

ADD 

SEC 

MOV 

MOV 



20$ 

4(R5),R2 
Rl 

5CR5) f 06IT5 

31$ 

R5.CKRACT 

20$ 

R1.R2 
19$ 

5(R5),*BIT7 

R5.CKRDA 

20$ 

R5.STEPLU 

Rl 
18$ 

5CR5),GBIT6 

30$ 

R5.CKRDA 

20$ 

06. R5 

21$ 

06.R5 

(SP)*,R2 

(5P)f,Rl 



tSEE IF ACTUAL BIT - 
j BR IF YES 



QUEUE "DEVICE FATAL" ERROR O 36 

MOV 
MOV 

MOV 
MOV 



j TAKE ERROR EXIT 

j SEE IF ACTUAL BIT - 1 

I BR IF YES 



j QUEUE "DEVICE FATAL" ERROR * 37 

MOV 

MOV 
MOV 
MOV 
I TAKE ERROR EXIT 

jGET DESIRED NO. OF CYCLES 
jINIT CYCLE COUNT 

t* IS RXACT CHECK TO BE DISABLED ? 

j* BR IF YES 

jCHK FOR RACT - 1 

:BR TO EXIT IF ERROR 

»SEt IF REQUIRED CYCLES DONE YET 
jBR IF YES 

;* SEE IF INITIAL RDA CHECK DESIRED 

j* BR IF NO 

jCHK FOR RDA - 

*BR TO EXIT IF ERROR 

j CLOCK LU FOR 1 CYCLE 

jINCR CYCLE COUNT 
j CONTINUE CLOCKING 

;* IS FINAL RDA CHECK TO BE SKIPPED ? 
j* BR IF YES 
jCHK ROA - 1 

jBR IF ERROR 

j FIX UP RETURN ADRS 
(SET C - FOR NO ERROR 
jTAKE ERROR -FREE EXIT 
jFIX UP RETURN ADDRESS 
;SET C BIT FOR ERROR 
{RESTORE R2 
{RESTORE Rl 



4T.EDF.ERRTYP 
*36,ERRNBR 
0EM28.ERRMSG 
#ERR12,ERRBLK 



4T,EDF,ERRTYP 
*37,ERRN8R 
OEM29.ERRMSG 
0ERR12.ERRBLK 



G7 
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SEQ 0084 
RXCHAR -- RECEIVE A CHARACTER 

3620 011622 000205 RTS R5 j RETURN 

3621 



H7 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 53 
RCV1ST -- RECEIVE FIRST CHARACTER OF MESSAGE 



SEQ 0085 



3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

364 7 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

366 7 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

36 75 

36 /6 

36// 

36/8 

3679 



011624 

011624 

011626 

011630 

011632 

011634 

011640 

011644 

011646 

011650 

011654 

011656 

011660 

011664 

011666 

011670 

011674 

011676 

011700 

011704 

011706 

011710 

011716 

011720 

011722 

011724 

011730 

011732 

011734 

011740 

011742 

011746 

011750 

011752 

011756 

011760 

011762 

011764 

011/66 

011770 



010146 

010246 

005001 

012502 

062702 

004537 

OOOOOO 

103446 

004537 

OOOOOO 

103442 

004537 

OOOOOO 

1034 36 

004537 

000001 

005201 

00453/ 

122000 

OOOOOO 

132737 

001006 

020102 

002762 

004537 

000001 

103414 

020165 

002004 

004537 

OOOOOO 

103405 

004537 

000001 

103401 

000241 

012602 

012601 

000205 



000003 
005654 



006154 
006614 
012072 
003566 
000200 

006154 

177776 
006154 

005654 



011706 



.SBTTL RCV1ST -- RECEIVE FIRST CHARACTER OF MESSAGE 

}+ RCV1ST - THIS SUBROUTINE RECEIVES THE FIRST CHAR OF A MESSAGE AND MONITORS 
THE STATUS OF THE RECEIVER. FIRST, A CHECK IS MADE FOR RXACT - 0, 
RDA - 0, RSA - 0, RS0I1 •• 0. THEN, THE LINE UNIT IS CLOCKED UNTIL 
RDA * 1, THE PROGRAM CHECKS FOR THIS TO OCCUR WITHIN 3 CYCLES AFTER 
THE NO. OF CYCLES PASSED IN THE SECONO WORD FOLLOWING THE CALL. 
IF THE SUBROUTINE DETECTS AN ERROR, THE ERROR INFORMATION 



5* 
1 + 

i* 
i* 
I* 
j* 
{* 
!♦ 
i* 
1 + 
: + 



IS STACKED, AND THE C-BIT 
DISCRETION OF THE CALLING 



SET, WHICH 
ROUTINE OR 



LEAVES THE 
SUBROUTINE 



ERROR REPORTING AT THE 



CALLING SEQUENCE t 

vJSR R5,RCV1ST 

.WORD <EXPECTEO RECEIVER CYCLE COUNT> 

RCV1ST; 

j SAVE Rl 

i SAVE R2 

ilNIT CYCLE COUNT 

jGET CYCLE COUNT LIMIT 

jCHK FOR RXACT « 



1$ 



2$ 



3$ 



4$ 



5$ 
6* 



MOV 


Rl. -CSP) 


MOV 


R2.-CSP) 


CLR 


Rl 


MOV 


(R5)*,R2 


ADD 


03, R2 


JSR 


R5.CKRACT 







BCS 


6i 


JSR 


R5.CKRDA 







BCS 


6* 


JSR 


R5.CKSE0M 







BCS 


6$ 


JSR 


R5.STEPLU 


1 




INC 


Rl 


JSR 


R5,READI 


USJATR 




.WORD 





8ITB 


*RDA,2* 


BNE 


3i 


CMP 


R1.R2 


BLT 


U 


JSR 

1 

BCS 


R5 , CKRDA 


6* 


CMP 


Rl, -2CR5) 


BGE 


4J 


JSR 


R5, CKRDA 







BCS 


6$ 


JSR 

1 

BCS 


R5.CKRACT 


6$ 


CLC 




MOV 


(SP)».R2 


MOV 


cr,p)*,Ri 


RTS 


R5 



;BR TO EXIT IF 
tCHK FOR ROA - 

} BR TO EXIT IF 
jCHK FOR RSOM 



jBR TO 
iCLQCK 



EXIT IF 
LU FOR : 



ERROR 


ERROR 
■ 0, REOM 

ERROR 

. CYCLE 







j INCREMENT CYCLE COUNT 
I READ USYRT STATUS REG 



j SEE IF RDA SET YET 
jBR IF YES 

iSEE IF LIMIT EXCEEDED 
jBR IF NOT YET 

iGO STACK "RDA NOT SET 



MSG 



>BR TO EXIT IF ERROR 

{SEE IF LESS THAN REQUIRED CYCLES 

jBR IF NOT 

iGO STACK "RDA NOT CLEARED" MSG 

j BR TO EXIT IF ERROR 
iCHK FOR RXACT ■ 1 

tBR TO EXIT IF ERROR 

{CLEAR C BIT FOR NO ERRORS 

{RESTORE R2 

{RESTORE Rl 

i RE TURN (WITH C BIT « 1 IF ERROR) 



17 



CNOMEAO DMV11 LINE UNIT D1AG3 MACRU M1200 22-FEB-64 15t48 PAGE 54 
„ ..ENTRAN -- SHUT DOWN TRANSMITTER/RECEIVER 



SEQ 0056 



3681 

3693 
3684 
3605 
3686 
3687 
3688 
368<> 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
37U 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 



011772 
011772 
012000 
012004 
012006 
012010 
012014 
012020 
012022 
012024 
012030 
012032 
012034 
012040 
012042 
012044 
012050 
012052 
012056 
012060 
012062 
012066 
012070 



012737 
112537 
105725 
100002 
005037 
004537 
000001 
103422 
004537 
000001 
103416 
004S37 
120000 
000002 
004537 
000000 
004537 
000000 
103403 
00453 7 
000000 
000205 



000002 
012050 



012042 
005514 



005654 



003712 



012072 
005514 



005654 



012042 



.SBTTL ENTRAN -- SHUT DOWN TRANSMITTER/RECEIVER 

j* ENTRAN - THIS SUBROUTINE TERMINATES A MESSAGE BY CLEARING TXEN AND RXEN, 



i* 
{* 
s* 
j* 
j * 

!* 

I* 
j* 



CLOCKING THE LINE UNIT FOR THE NUHBER OF CYCLES PASSED IN THE WORD 

FOLLOWING THE CALL, AND CHECKING FOR THE USYRT TRANSMITTER AND 

RECEIVER TO BE SHUT DOWN. 

IF THE SUBROUTINE DETECTS AN ERROR, THE ERROR INFORMATION 

IS STACKED, AND THE C-BIT SET, WHICH LEAVES THE ERROR REPORTING AT THE 

DISCRETION OF THE CALLING ROUTINE OR SUBROUTINE. 



CALLING SEQUENCE ; 
JSR R5, ENTRAN 
MSB SET-NO TTLOOP ! LOWER BYTE - <N0. OF CYCLES TO CLOCIO 

******* A* ****** 44*4^**4^4^* ************************* ************************** 

ENTRAN s 

jINIT DEFAULT VIAORB (TTLOOP-1) 

iGET DESIRED OF TICKS (LOWER BYTE) 

j SEE IF MSB SET (TTLOOP DISABLE BIT) 

lIS IT? 

» IF YES: CLEAR VIAORB VALUE 

jCHK FOR TXACT » 1 



4$ 



II 
21 



6*i 



MOV 


OTTLOOP.ll 


MOVB 


(R5)*,2I 


TSTB 


(R5)* 


BPL 


41 


CLR 


11 


JSR 

1 

BCS 


R5.CKTACT 


61 


JSR 

1 

BCS 


R5.CKRACT 


61 


JSR 


R5.WRITEI 


VIAORB 




TTLOOP 




JSR 


R5.STEPLU 


.WORD 





JSR 


R5.CKTACT 







BCS 


61 


JSR 


R5.CKRACT 







RTS 


R5 



{BR IF ERROR 
jCHK FOR RXACT 



, CLEAR TXEN AND RXEN IN US^RT 

,♦♦ HOLE FOR ACTUAL VIAORB WORD ♦ ♦ 
I CLOCK LU FOR DESIRED NO. OF CYCLES 



jCHK FOR TXACT - 



}BR IF ERROR 
tCHK FOR RXACT 







J7 



CNDMFAO DMVll I- INF. UNIT PIAG3 MACRO M1200 22-FEB-84 15}48 PAGE 55 
,.,,STEPlU -- CLOCK THE L'SYRT N TIMES 



SEQ 0087 



o i c <: 
3 7c? 3 
3 724 
3725 
3^26 
3 727 
3728 
3729 
37 30 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
37 39 
3740 
3741 
3742 
3 74 3 
3744 
3745 
3746 
374/ 
3748 
3749 



012072 
0120 72 
012074 
012076 
012102 
012104 
012106 
0.12110 
012112 
012114 



010146 
012501 
004537 
120005 
000000 
005301 
001372 
012601 
000205 



SBTTL 5TEPLU -- CLOCK THE USYRT N TIMES 

♦ STEPLU - THIS SIBROUTINE CLOCKS THE LINE UNIT FOR THE NUMBER OF CYCLES 



J* 

* 

* 
* 

+ 



PASSFD IN THE WORD FOLLOWING THE 

SET UP FOR Tl ONE -SHOT MODE, AND 

TO CONTROL THE WIDTH OF THE CLOCK PULSE 

DOES IS TO LOAD 000 INTO THE HI BYTE OF 

DESIRED NUMBER OF TIMES. 



CALL. THE VIA ACR MUST BE PREVIOUSLY 
THE Tl LATCHES MUST BE PREVIOUSLY SET 
ALL THAT THIS SUBROUTINE 
THE Tl COUNTER, FOR THE 



003712 



CALLING SEQUENCE j 

JSR R5, STEPLU 

.WORD <NUMBER OF CYCLES TO CLOCK > 

STEPLU: 

Rl.-CSP) i SAVE Rl 

(R5)*,R1 jINIT CYCLE COUNTER 

R5.WRITEI jLOAD T1C-H, START COUNTER, CLOCK i CYCLE 



1* 



MOV 

MOV 

JSR 

VIAT1B 

000 

DEC 

BNE 

MOV 

RTS 



Rl 
li 
(SP) 

R5 



• Rl 



jDECR CYCLE COUNTER 

jBR IF ALL CYCLES NOT DONE YET 

j RESTORE, Rl 

{RETURN 



CNDMEAO DMV11 LlNt UNIT D1AG3 
GLOBAL. ERROR REPORT SECTION 

375 4 
3752 
3753 
3754 
3755 
3756 
3757 
3756 

3759 012116 045 116 

3760 012123 045 116 
3761 

3762 012126 045 116 

3763 012163 045 116 

3764 012247 045 116 

3765 012305 045 116 

3766 012340 045 116 

3767 012345 045 116 

3768 012400 045 116 

3769 012443 045 116 

3770 012530 045 116 
3771 

3772 012560 045 116 

3773 012634 045 101 

3774 012655 045 116 

3775 012674 045 116 

3776 012703 045 116 

3777 012751 045 123 

3778 012766 045 101 

3779 013020 045 101 

3780 013072 045 116 

3781 013115 045 116 

3782 013157 045 101 

3783 013236 045 116 

3784 013317 045 116 

3785 013372 045 116 
3786 

3787 013452 045 116 

3788 013503 045 124 

3789 013513 045 116 

3790 013555 045 101 

3791 013614 045 116 

3792 013627 045 117 

3793 013657 045 123 

3794 013712 045 124 

3795 013721 045 101 

3796 013755 045 124 
3 797 013762 045 116 

3798 014017 045 116 

3799 014065 045 116 

3800 014117 045 116 

3801 014150 045 116 
380? 

3803 014214 125 123 

3604 014263 115 111 

3805 014307 115 122 

3800 014 324 122 117 

3807 014340 122 117 



MACRO M1200 22-FEB-84 15;46 PAGE 56 



SEQ 0088 



045 
000 

045 
045 
045 
045 
045 
045 
045 
C45 
045 

045 
040 
045 
045 
045 
062 
040 
040 
045 
045 
040 
045 
045 
045 

045 
04 5 
045 
105 
045 
063 
064 
045 
105 
045 
045 
045 
045 
045 
045 

131 
103 
104 
122 
122 



.SBTTL GLOBAL ERROR REPORT SECTION 

;///////////////////// '/////////////// ///////////////////// ///////// 
{/ THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES 
}/ THAT ARE USED IN MORE THAN ONE TEST. 
;/////////////////////////////////////////////////////////////////// 



.NLIST 
ENOEMB 
NEWLIN 

FMT2 

FMT3 

FMT4 

FMT4A 

FMT4B 

FMT4C 

FMT5: 

FMT5A: 

FMT7; 

FMT10: 

FMT10A 

FMTU 

FMT12 

FMT13 

FMT14 

FMT15 

FMT15A 

FMT16: 

FMT16A 

FMT17: 

FMT17A 

FMT17B 

FMT17C 

FMT19 
FMT21 
FMT22 
FMT23 
FMT24 
FMT25 
FMT26 
FMT27 
FMT28 
FMT29 
FMT30 
F M r 3 1 
FMT32 
FMT39 
FMT40 

EM2: 

EM3: 
EM4: 
EM14; 

EM16i 



BEX 
.ASCIZ 
, ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 



/#N*N/ 
/*N/ 



iUSED TO TERMINATE ERROR MESSAGES 



/rfNrfAF AILING REG - *T*ASEL*01/ 

/*N*A EXPECTED: *03*A ACTUAL: *03*A XOR; *03' 

/KNrfATHE CONTENTS OF ALL#T#N*t/ 

/#N*S1*03*S5*03*S5#03*S5#03/ 

/*N<T/ 

/*N*S5*03rfS5#03*S5*03*55*03/ 

/*N*A WHEN H03KA LOADED INTO BSEL1/ 

/HN*A ATTEMPTING "M-LOOP" FUNCTION CODE *02*A (#T*A)/ 

/*N*AMOIAG **03*A FAILED/ 

/*N*A EXPECTEDj*08KA AC1 UAL:*'08*A X0R;*08/ 

/*A LSI ADDR;*08/ 

/#N*08#0B*08*08/ 

/*N#Ni*T/ 

/*N*T*03#S2*03*S2*03*S2*03*S2*03*S2*03/ 

/*S2*03*52*03/ 

/*A DETECTED IN *T*T#A • -/ 

/*A DETECTED S TEST PATTERN ELEMENT o #D2/ 

/*N*T*03*S4#03*S*03/ 

/#N*T*03*S*03*S*03*S4*03*S*03*S*03/ 

/#A VALUE SENT TO NPR CONTROL REGISTER: *03/ 
/*N*A VALUE READ FROM CONTROL REGISTER: *03/ 

/t*N*A LSI-11 MCMORT ADDRESS ACCESSED ;*08/ 

/*N*A INFORMATION ON THE FIRST OF *D5*A ERRORS:/ 

/*N*ATEST #D2*A NOT RUN*N/ 

/*T*06*N/ 

/#N*AFAILING REG: / 

/rfAEXPECTED: *03#S5*AACTUAL : *03*S5*AX0R: *03*N/ 

/*N*T*N*T*N/ 

/*03*S5*03*S5#03*S5*03*N/ 

/*54*O3*S5*03*S5*O3*S5*03*N/ 

/*T*T*N/ 

/*AEXTENOED REG AX*01*A~*T*N/ 

/*T#N/ 

/#N*AFOR BAUO RATE SPECIFIED,/ 

/*N*A IMPROPER CONNECTOR TYPE SPECIFIED/ 

/*N*AFOR OPTION SPECIFIED,/ 

/*N*ATEST *02*A NOT RUN*N/ 

/*N*AF AILING RAM ADRS : *06*A (OCT)tfN/ 

/USYRT NOT INITIALIZED BY PROGRAM RtbLT/ 
/MICRO-DIAG. FAILURE/ 
/MRDY TIMEOUT/ 
/ROn NOT St-T/ 
/RQR NOT CLEARED/ 



L.7 



CNDMEAO OMV11 LINE UNIT D1AG3 
GLOBAL ERROR REPORT SECTION 



MACRO M1200 22-FEB-84 15:48 PAGE 56-1 



SEQ 0089 



3808 014360 


122 


105 


101 


EM25j 


.ASCI? 


'READ/WRITE DATA ERROR* 




3809 014406 


122 


123 


117 


FM28: 


.ASCIZ 


/RSOM NOT CLEARED/ 




3810 014427 


122 


123 


117 


EM29: 


.ASCIZ 


/RSOM NOT SET/ 




3811 014444 


122 


105 


117 


EM30: 


.ASCIZ 


/REOM NOT CLEARED/ 




3812 014465 


122 


105 


117 


EM31: 


.ASCIZ 


/REOM NOT SET/ 




3813 014502 


122 


103 


126 


EM34: 


.ASCIZ 


/RCV'D DATA MISCOMPARE/ 




3814 014530 


122 


105 


122 


EM35: 


.ASCIZ 


/RERR NOT CLEARED/ 




3815 014551 


122 


105 


122 


EM36« 


.ASCIZ 


/RERR NOT SET/ 




3816 014566 


122 


101 


102 


EM39 


.ASCIZ 


/RABGA NOT CLEARED/ 




3817 C14610 


122 


101 


102 


EM40 


.ASCIZ 


/RABGA NOT SET/ 




3818 014626 


124 


130 


040 


EM54 


.ASCIZ 


/TX UNDERRUN ERROR/ 




3819 014650 


125 


123 


131 


EM68 


.ASCIZ 


/USYRT STATUS INCORRECT/ 




3820 014677 


124 


130 


101 


EM69 


.ASCIZ 


/TXACT NOT SET/ 




3821 014715 


124 


130 


101 


EM70 


.ASCIZ 


/TXACT NOT CLEARED/ 




3822 014737 


122 


130 


101 


EM71 


.ASCIZ 


/RXACT NOT SET/ 




3823 014755 


122 


130 


101 


EM72 


.ASCIZ 


/RXACT NOT CLEARED/ 




3824 014777 


124 


102 


115 


EM73 


.ASCIZ 


/TBMT NOT SET/ 




3825 015014 


124 


102 


115 


EM74 


.ASCIZ 


/TBMT NOT CLEARED/ 




3826 015035 


122 


104 


101 


EM75 


.ASCIZ 


/RDA NOT SET/ 




3827 015051 


122 


104 


101 


EM76 


.ASCIZ 


/RDA NOT CLEARED/ 




3828 015071 


122 


123 


101 


EM77 


.ASCIZ 


/RSA NOT SET/ 




3829 015105 


122 


123 


101 


EM78 


.ASCIZ 


/RSA NOT CLEARED/ 




3830 015125 


122 


101 


115 


EM79 


.ASCIZ 


/RAM ERROR LOADING MICROCODE/ 




3831 015161 


103 


101 


122 


EM80 


.ASCIZ 


/CARRIER NOT SET/ 




3832 01520.1 


103 


101 


122 


EM81 


, ASCIZ 


/CARRIER NOT CLEARED/ 




3833 015225 


111 


116 


126 


EM82 


.ASCIZ 


/INVALID ERROR CODE FROM 6502/ 




3834 015262 


115 


117 


104 


EM83 


.ASCIZ 


/MODEM STATUS INCORRECT/ 




3835 015311 


103 


124 


123 


EM84 


: .ASCIZ 


/CTS NOT CLRD/ 




3836 015326 


103 


124 


123 


EM85 


: .ASCIZ 


/CTS NOT SET/ 




383/ 015342 


103 


101 


122 


EM86 


t .ASCIZ 


/CARRIER NOT CLRD/ 




3838 015363 


103 


101 


122 


EM87 


; .ASCIZ 


/CARRIER NOT SET/ 




3839 015403 


115 


117 


104 


EM88 


s .ASCIZ 


/MODEM RDY NOT CLRD/ 




3840 015426 


115 


117 


104 


EM89 


: .ASCIZ 


/MODEM RDY NOT SET/ 




3841 015450 


122 


105 


103 


EM90 


: .ASCIZ 


/RECEIVER OVERRUN NOT SET/ 




3842 015501 


122 


105 


103 


EM91 


: .ASCIZ 


/RECEIVER OVERRUN NOT CLEARED/ 




3843 015536 


124 


123 


117 


EM10< 


D: .ASCIZ 


/TSO BIT NOT SET/ 




3844 015556 


124 


123 


117 


EM10 


1: .ASCIZ 


/TSO BIT NOT CLEARED/ 




3845 
















3846 
















334/ 








.SBT 


TL TEXT 


STRINGS FOR ERROR HANDLERS •- "TXT...." 




3848 








i 






■ . ■ 


3849 












TLVT 1 iccn R y PRRHR HAKini FRt; _.... _. ... 




3850 








• 








*-/ W ^y \s 

3851 
















3852 015602 


102 


123 


105 


TXT1 


: .ASCIZ 


/BSELO BSEL1 BSEL.2 BSEL3/ 




3853 015640 


040 


040 


040 


TXT2 


: .ASCIZ 


/ BSE1.4 BSEL5 BSEL 6 BSE1.7/ 




3854 015702 


102 


123 


105 


TXT2 


A: .ASCIZ 


/BSEL10 BSEL11 BSEL 12 BSEL13/ 




3855 015741 


040 


040 


040 


TXT2! 


3: .ASCIZ 


/ BSEL 14 BSEL 15 BSEL 16 BSEL 17/ 




3856 016004 


040 


102 


131 


TXT3 


: .ASCIZ 


/ BYTE SELECT REG'S ARE:/ 




3857 016034 


040 


040 


040 


TXT4 


: .ASCI/ 


/ SU.O SEL2 5EL4 SH 6/ 




3858 016074 


040 


040 


040 


TXT4 


ft: .ASCIZ 


/ SEL10 5EL12 SEL14 SEL16/ 




3859 016135 


102 


000 




TX15 


: .ASCIZ 


/B/ 




3860 016137 


040 


123 


105 


TXT6 


; .ASCIZ 


/ SELECT REG' 5 ARE:/ 




3861 016162 


040 


122 


105 


TXT7 


t .ASCIZ 


/ REGISTERS ORB ORA DDHB DORM 11 CL UCH UtL U\ H •• 


3862 016252 


040 


040 


040 


1XT7 


A: .ASCIZ 


/ T2CL T2CH SR ACR PL'R XFR IfcR ORA / 


3863 016342 


040 


io:> 


130 


TxTfl 


j .ASCIZ 


/ EXPECTtD; 




3864 016362 


040 


101 


103 


TXT9 


i .ASCIZ 


/ ACTUALt / 





M7 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:45 PAGE 56-2 
....TEXT STRINGS FOR ERROR HANDLERS -- "TXT___" 



SEQ 0090 



*P65 

3866 

3867 

3868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3080 

3881 

3882 

3883 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3098 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3919 

3920 

3921 



016402 
016422 
016474 
016532 
016602 
016630 
016645 
016703 
016745 
016760 
017015 
017056 
017112 

017152 

017154 

017160 
017174 
017211 
017233 
017254 
017304 
017316 

017353 

017371 
017375 
017401 
017406 
017413 
017420 
017425 
017432 
017437 
017444 
017451 
01/454 
017460 
017464 
017470 
017474 

017500 
017505 
017515 
01^525 
017535 
017552 
017567 
017604 
017620 
017634 

017650 

017063 
017671 



040 
040 
040 
040 
104 
125 
122 
040 
126 
117 
040 
124 
040 

021 

116 
122 
127 
116 
116 
123 
125 
101 

126 

117 
11/ 
104 
104 
124 
124 
124 
124 
124 
124 
123 
101 
120 
111 
HI 
117 

116 
103 

104 
104 
101 
10.1 
101 
101 
101 
101 

125 

122 
122 



130 
040 
040 
040 
105 
123 
104 
040 
111 
122 
040 
062 
040 

000 

117 

105 
122 
120 
120 
105 
116 
114 

111 
122 
122 
104 
104 
061 
061 
061 
061 
062 
062 
122 
103 
103 
106 
105 
122 

120 
117 
101 
101 
104 
104 
104 
104 
104 
104 



104 
104 



117 
116 
040 
040 
126 
131 
123 
040 
101 
102 
040 
103 
040 



120 
101 
111 
122 
122 
124 
104 
114 

101 
102 
101 
122 
122 
103 
103 
114 
114 
103 
103 
000 
122 
122 
122 
122 
101 

122 
116 
124 
124 
104 
104 
1C4 
104 
104 
104 

131 

123 
123 



TXT10: 
TXTU: 

TXT11A 

TXT11B 

TXT12 

TXT13 

TXT14 

TXT15 

TXT16 

TXT17 

TXT18 

TXT19 

TXT20 



.ASCIZ / XOR: / 

.ASCJ.Z /NPR REGISTERS:/ 

.ASCIZ / CONTROL DATA/ 

.ASCIZ / OUT ADDR. IN ADDR./ 

.ASCIZ /DEVICE CSR ADDRESS ; / 

.ASCIZ /USYRT REGS :/ 

.ASCIZ /RDSRL RDSRH TDSRL TDSRH/ 

.ASCIZ / PCSARL PCSARH PCR USTAT/ 

.ASCIZ /VIA REGS :/ 

.ASCIZ /ORB ORA DDRB DDRA/ 

.ASCIZ / T1CL T1CH TILL T1LH/ 

. ASCIZ /T2CL T2CH SR ACR/ 

.ASCIZ / PCR IFR IER ORA/ 



TXTNUL: .BYTE 21,0 



TXTMLO 
TXTML1 
TXTML2 
TXTML3 
TXTML4 
TXTML5 
TXTML6 
TXTML7 

TXTVRj 
TXTVRO 
TXTVR1 
TXTVR2 
TXTVR3 
TXTVR4 
TXTVR5 
TXTVR6 
TXTVR7 
TXTVR8 
TXTVR9 
TXTVRA 
TXTVRB 
TXTVRC 
TXTVRD 
TXTVRE 
TXTVRF 

TXTN D : 
TXTNPO 
TXTNP1 
TXTNP2 
TXTNP3 
TXTNP4 
TXTNP5 
TXTNP6 
TXTNP7 
TX r NP8 

1XTUR: 

TXTURO 
TXTUR1 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 

.ASCIZ 
, ASCIZ 

.ASCIZ 
ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 



jCTL-Q 



THIS (WE HOPE) IS HARMLES5 



/NOP/ 

/READ 1 BYTE/ 

/WRITE 1 BYTE/ 

/NPR-OUT 256 BYTES/ 

/NPR -IN 256 BYTES/ 

/SET MICROPROCESSOR'S PC/ 

/UNOEriNEO/ 

/ALLOW U-PROCESSOR INTERRUPTS/ 

/VIA REGISTER / 

/ORB/ 

/ORA/ 

/DDRB/ 

/DDRA/ 

/T1CL/ 

/T1CH/ 

/TILL/ 

/T1LH/ 

/T2CL/ 

/T2CH/ 

/SR/ 

/ACR/ 

/PCR/ 

/JFR/ 

/1ER/ 

/ORA/ 

/NPR / 
/CONTROL/ 
/DATA HI/ 
/D \TA LO/ 
/ADDR, OUT EX/ 
/ADDR. OUT HI/ 
/ADDR. OUT 10/ 
/ADDR. IN EX/ 
/ADDR, IN HI/ 
/ADDR. IN LO/ 



/USYRT REG 

/RDSRL/ 

/RDSRH/ 



/ 



N7 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:48 PAGE 56-3 
....TEXT STRINGS TOR ERROR HANDLERS -- "TXT___" 



SEQ 0091 



3922 
3923 
3924 
3925. 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 



3939 
3940 



39*1 



3942 
3943 
3944 



3945 



3946 
394 7 
3948 



017677 
017705 
017713 
017722 
017731 
017735 



017744 
017 752 
017760 

017764 

017766 
017774 
020002 
020006 
020014 
020022 

020026 
020030 
020036 
020044 
020052 
020060 
020066 



124 
124 
120 
120 
120 
125 



017154 
017211 
017304 

017353 

017371 
017406 
017425 
017437 
017454 
017470 

017500 
017505 
017535 
017604 
017663 
017705 
017731 



104 
104 
103 
103 
103 
123 



017160 
017233 
017316 



017375 
017413 
017*32 
017444 
017460 
017474 



017515 
017552 
017620 
017671 
017713 
017735 



123 TXTUR2 
123 TXTUR3 
123 TXTUR4 

123 TXTUR5 
122 TXTUR6 

124 TXTUR7 
.LIST 
.EVEN 



017451 
017464 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
BEX 



/TDSRL/ 

/TDSRH/ 

/PCSARu/ 

/PCSARH/ 

/PCR/ 

/USTAT/ 



.SBTTL TEXT ADDRESS TABLES FOR ERROR HANDLERS -- "TXT_T" 



TEXT ADDRESS TABLES USED BY ERROR HANDLERS 



i 



017174 TXTMLTj .WORD TXTMLO, TXTML1 , TXTML2, TXTML3, TXTML4 ,TXTML5 , TXTML6, TXTML7 
017254 

.WORD .XTVR 
017401 TXTVRT: .WORD TXTVRO, TXTVR1 , TXTVR2, TXT VR3 , TXTVR4 , TXTVR5 , TXTVR6, TXTVR7 
017420 



.WORD TXTVR8 , TXTVR9 . TXTVRA, TXTVRB , TXTVRC , TX 'VRD , TXTVRE , TXTVRF 



.WORD TXTNP 
017525 TXTNPT: .WORD TXTNPO, TXTNPl , TXTNP2, TXTNP3, TXTNP4 , TXTNP5 , TXTNP6, TXTNP?, TXTNP8 
017567 
017634 

017677 TXTURTj .WORD TXTURO, TXTUR1 , TXTUR2, TXTUR3, TXTUR4 . TXTUR5 , TXTUR6, TXTUR7 
017722 



CNOMfcAO DMV11 LINE UNIT DIAG3 MACRO Ml 200 
. ...TEXT ADDRESS TABLES FOR ERROR HANDLERS 



B8 

22 FEB 64 15j48 PAGE 5/ 
"TXT T" 



SEQ 0092 



3950 






t ■ • 


....... 


- - . - - 









3S»S i 

3^.3 020072 






.SBTTL 


ERROR HANDLER 


- ERR3 -- 


DUMP THE BYTE SELECT REGISTERS 






BGNMSG 


ERR3 








020072 














ERR3tt 




3954 020072 


004 737 


021306 




JSR 


PC,ERR4$ 








3955 020076 








PRINTB 


OENDEMB 








020076 


012746 


012116 










MOV 


OENOEMB, -(SP) 


020102 


012746 


000001 










MOV 


• 1, (SP) 


020106 


010600 












MOV 


SP.RO 


020110 


104414 












TRAP 


Cir»NTB 


0201 1,' 


062706 


000004 










ADD 


04, SP 


3956 020116 








ENDMSG 










020116 














L 10002; 




020116 


104423 












TRAP 


CJMSG 


3957 
395tt 






















.SBTTL 


ERROR HANDLER - 


- ERR4 - 


M LOOP TIMEOUT ERROR HANOLING 




3959 

3960 020120 
























BGNHSG 


ERR4 








020120 














ERR4: : 




3961 020120 


105037 


002325 




CLRB 


G0ATA*1 




jHAKE SURE BIT 6 DOESN'T PRU-T » 




3962 020124 


010146 






MOV 


Rl. -(SP) 




iSAVE TM6 WORKING REGISTER 




3963 020126 


013701 


002324 




MOV 


GDATA.Rl 




iSAVE THIS FOR LATER 




3964 020132 


022 701 


00001/ 




CMP 


•17, Ri 




iWAS THIS AN M LOOP REQUEST? 




3965 020136 


002012 






BGE 


51 




jYES, THeN REPORT THE FUNCTION 


TOOE 


3966 020140 








PRINTX 


0FMT5.R1 




iNO. THEN IT MUST BE A BSEL1 SETTING 


020140 


010146 












MOV 


Rl, (SP) 


020142 


012746 


01240O 










MOV 


♦FMT5, (SP) 


020146 


012746 


000002 










MOV 


♦2, (SP) 


020152 


010600 












NOV 


SP,RO 


020154 


104415 












TRAP 


CIPNTX 


020156 


062706 


000006 










ADD 


06, SP 


3967 020162 


0OO424 






BR 


201 








3966 


















3969 020164 


001001 




51: 


BNE 


61 




j IF IT WAS A 17, THIS IS A "NOP 


" AND 


3970 020166 


005001 






CLR 


Rl 




I THE TEXT POINTER NJST SO REFLECT. 


3971 020170 


022701 


00000 7 


61: 


CMP 


07, Rl 




llS FICTION COOE > 7? 




3972 020174 


002002 






BGE 


71 




iNO, THEN WE CAN HANDLE IT 




3973 020176 


012701 


000006 




MOV 


06, Rl 




lYfS, THCN IT'S UNDEFINED SAY SO 


:°?4 020202 


006301 




7$s 


ASL 


Rl 




j CONVERT TO A WORD OFFSET 




S97S 020204 








PRINTX 


0FMT5A.GDATA, TXTMLT(Rl) jREPORT THE FAILING FUNCTION 




020204 


016146 


017/44 










MOV 


TXTMLTIR1 ). (S 


020210 


013746 


002324 










MOV 


GOAT A, (SP1 


020214 


012746 


012443 










MOV 


0FMT5A. v SP) 


C20220 


012746 


000003 










MOV 


• 3, -(SP) 


020224 


010600 












MOV 


SP.RO 


020226 


104415 












TRAP 


ClPNU 


020230 
:>9 76 
39 7/' 020234 


062 706 


000010 










ADD 


tiO.SP 


012601 




< J 0»: 


MOV 


(5P)»,R1 




I RE STORE THt MORKING REGISTER 




39 78 020236 


004737 


021634 




JSR 


PC.ERR51 




lOUMP THE SELECT REGIS Tt'RS 




3979 020242 








ENDMSG 










020242 














L 10003: 




020242 


104423 












TRAP 


C»M4G 


3980 






i 






■ • 


, - . . . -.«.. 


. . . » 


S'«H 






■ SBTU 


,,. .ERROR HANDLtR 


• tl'R/A 


UiiiRl RtGlSUR ERRORS 




39ti2 



















C8 



CNDMEAO DMVil l.INt UNIT D1AG3 MACRO M1200 22 FEB 84 15}48 PAGE 57-1 
.•..ERROR HANDLER -- ERR7A -• USYRT REGISTER ERRORS 



SEQ 0093 



3983 

3984 
3985 
3986 



3987 
3988 



3989 



3990 



3991 
3992 
3993 
3994 
3995 

3996 



3997 



3998 
3999 
4000 



020244 
020244 
020244 
020250 
020252 
020252 
020256 
020262 
020266 
020272 
020274 
020276 
020302 
020306 
020306 
020312 
020316 
020322 
020326 
020332 
020334 
020336 
020342 
020342 
020346 
020352 
020354 
020356 
020362 
020362 
020362 



020364 
020364 
020364 
020364 
020370 
020374 
020400 
020404 
020406 
020410 
020414 
020414 
020420 
020424 
020425 
0204 30 
0204 34 
020440 
020442 
020442 
020446 
020452 



113701 
006301 

016146 
012746 
012746 
012746 
010600 
104414 
062706 
004737 

013746 
013746 
013746 
012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104414 
062706 



104423 



013746 
012746 
012746 
012/46 
010600 
104414 
062706 

012746 
012746 
010600 
104414 
062 706 
013701 
006301 

016146 
012/46 
012746 



002336 



020052 
017650 
012766 
000003 



000010 
021262 

002330 
002326 
002324 
012163 
000004 



000012 

012116 
000001 



000004 



002416 
016602 
013503 
000003 



000010 

013513 
000001 



000004 
002336 



020052 
017650 
013712 



BGNMSG 


ERR7A 








ERR7A: : 






MOVO 


REGNUM.R1 














ASL 


Rl i AS PASSED. 


THIS 


WAS 


A BYTE OFFSET 




PRINTB 


0FMT15,OTXTUR,TXTURT(R1) 










MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


TXTURT(Rl).-CSP) 

OTXTUR, -(SP) 

0FMT15,- (SP) 

03, (SP) 

SP.RO 

CIPNTB 

410. SP 


vJSR 


PC , XORGB 














PRINTB 


0FMT3.GDATA, BOAT A, XDATA 










MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


XDATA, -(SP) 
BDATA. -CSP) 
GDATA.-C5P) 
0FMT3, (SP) 
#4. (SP) 
SP.RO 
CIPNTB 
012. SP 


PRINTB 


OENDEMB 










MOV 

MOV 

MOV 

TRAP 

ADD 


OENDEMB. -(SP) 
01. (SP) 
SP.RO 
CIPNTB 
04. SP 


ENOMSG 










1.10004: 


TRAP 


CIM5G 


SBTTL ERROR HANOI. ER ■• ERR10 USlfRT 


REG 


ERROR 


(XOR, REG 


PRINTOUT) 



BGNMSG ERRtO 

PRINTB 0FMT21.OTXT12.MPCSR 



ERR10 



PRINTB 0FMT22 



MOV 
ASl 



REGNUM.R1 
Rl 



PRINTB OFMTay^TXTUR.TXTURHRl) 



iGET PTR TO US1RT AtG 



MOV 


MPCSR. -CSP) 


MOV 


0TXT12, -(SP) 


MOV 


OfMT2l.-(SP) 


MOV 


03, -(SP) 


MOV 


SP»RO 


TRAP 


CIPNTB 


ADD 


010. SP 


MOV 


0fMT22. tSP) 


MOV 


01, (5P) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADD 


*4,SP 


.CII 




MOV 


TxTURURl >. 


MOV 


oTXRfl. -(.SP) 


MOV 


OFMr^'.\ -^SP) 



kSP^ 



D8 
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ERROR HANDLER - ERRIO - USYRT REG ERROR (XOR, REG PRINTO 



SEQ 0094 





020456 


012746 


000003 




020462 


010600 






020464 


104414 






020466 


062706 


000010 


4001 


020472 


004737 


021262 


4002 


020476 








020476 


013746 


002330 




020502 


013746 


002326 




020506 


013746 


002324 




020512 


012746 


013535 




020516 


012746 


000004 




020522 


010600 






020524 


104414 






020526 


062706 


000012 


4003 


020532 


004737 


022364 


4004 


020536 
020536 








020536 


104423 




4005 








4006 








4007 








400Q 








4009 








4010 


020540 
020540 






4011 


020540 








020540 


013746 


002416 




020544 


012746 


016602 




020550 


012746 


013503 




020554 


012746 


000003 




020560 


010600 






020562 


104414 






020564 


062706 


0OO010 


4012 


0205/0 








020570 


012746 


013513 




020574 


012746 


000001 




020600 


010600 






020602 


104414 






020604 


062706 


000004 


4013 


020610 


013701 


002336 


4014 


020614 


006301 




4015 


020616 








020616 


016146 


017766 




020622 


012746 


017353 




020626 


012746 


013712 




020632 


012746 


000003 




020636 


010600 






020640 


104414 






020642 


062706 


000010 


4016 


020646 


004737 


021262 


4017 


020652 








020652 


013746 


002330 




020656 


0137*6 


002326 




020662 


013746 


002324 




020666 


012^46 


013535 




020672 


012746 


000004 




020676 


010600 





JSR 
PRINTS 



PC , XORGB 

0FMT23 , GDATA , BDATA , XDATA 



JSR 
ENDMSG 



PC.ERR12* 



MOV 


03, -(SP) 


MOV 


sp.ro 


TRAP 


CIPNTB 


ADD 


010, SP 


i COMPUTE XOR OF GOOD AND BAD 


DATA 


MOV 


XDATA, -CSP) 


MOV 


BDATA f (SP) 


MOV 


GDATA. -(SP) 


MOV 


0FMT23,-(SP) 


MOV 


04, -CSP) 


MOV 


SP.RO 


TRAP 


CiPNTB 


ADO 


012. SP 


:GET 6 PRINT USYPT REGISTERS 




L. 10005? 





TRAP 



CtMSG 



.SBTTL ERROR HANDLER 

I 



ERR11 



VIA REG ERROR (XOR, REG PRINTOUT) 



BGNMSG ERR11 

PRINTB 0FMT2l,OTXT12,MPCSR 



ERR11 



PRINTB 0FMT22 



MOV 

ASl 

PRINTB 



REGNUM.Rl 
Ri 

OFMT27,OTXTVR,TXTVRT(Rl) 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

TRAP 

ADD 



iGET PTR TU VIA REG ASCII 



JSR 
PRINTB 



PC, XORGB 

0FMT23, GDATA, BDATA, XDATA 



i COMPUTE XOR OF GOOD 



MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
AND BAD 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



MPCSR. -CSP) 

0TXT12.-CSP) 

•FMT21.-CSP) 

03. -(SP) 

SP.RO 

C$PNTB 

010, SP 

0FMT22, CSP) 
01. -(SP) 

SP.RO 
CIPNTB 
04. SP 



TXTVRT(Rl), (SP) 

OTXTVR, iSP) 

0FMT27,-(SP) 

♦3, -CSP) 

SP.RO 

CIPNTB 

oio. sp 

DATA 



XDATA. 

BDATA, 

GDATA, 

0FMTJ5 

04, ISP) 

SP.RO 



•t SP) 
( SP > 
( SP ) 

, (.SPi 



E8 
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....ERROR HANDLER - ERR11 -- VIA REG ERROR ( XOR , REG PRINTOUT 



JSR PCERRllt 
ENDMSG 





020700 


104414 






020702 


062706 


000012 


4018 


020706 


004737 


022032 


4019 


020712 
020712 








020712 


104423 




4020 








4021 








4022 








4023 








4024 








4025 


020714 
020714 






4026 


020714 








020714 


013746 


002416 




020720 


012746 


016602 




020724 


012746 


013503 




020730 


012746 


000003 




020734 


010600 






020736 


104414 






020740 


062706 


000010 


4027 


020744 








020744 


012746 


013513 




020750 


012746 


000001 




020754 


010600 






020756 


104414 






020760 


062 7C6 


000004 


4023 


020764 


013701 


002336 


4029 


020770 


006301 




4030 


020772 








020772 


016146 


020052 




020776 


012746 


017650 




021002 


012746 


013712 




021006 


012746 


000003 




021012 


010600 






021014 


104414 






021016 


062706 


000010 


4031 


021022 


004737 


022364 


4032 


021026 
021026 








021026 


104423 




4033 








4034 








4035 








4036 








4037 








4038 


021030 
021030 






4039 


021030 








021030 


013746 


002416 




021034 


012746 


016602 




021040 


012746 


013503 




021044 


012746 


000003 




021050 


010600 






021052 


104414 






021054 


062 706 


000010 


4040 


021060 







TRAP 
ADO 
iGET 6 PRINT VIA REGISTERS 



L 10006: 



TRAP 



.SBTTL ERROR HANDLER -- ERR12 -- USYRT REG EHROR (USYRT PRINTOUT) 



BGNMSG ERR12 

PRINTB *FMT21,0TXT12, MPCSR 



ERR12:: 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTB 0FMT22 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV REGNUM,R1 

ASL Rl iGET PTR TO USYRT REG ASCII 

PRINTB *fMT27,0TXTUR # TXTURURl) 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR PC.ERR12J tGET G PRINT USYRT REGISTERS 

ENDMSG 

L10007} 

TRAP 



s 



SEQ 0095 



CiPNTB 
*12,SP 



CJMSG 



BGNMSG ERR 13 

PRINTB 0niT21,0TXTl2, MPCSR 



MPCSR, -CSP) 

0TXT12.-CSP) 

♦FMT21.-CSP) 

43,-CSP) 

SP.RO 

C$PNTB 

010, SP 

*fMT22.-(SP) 

*l,-CSP) 

SP.RO 

C*PNTB 

44, SP 



TXTURTCRl).-(SP) 

MXTUR.-CSP) 

0TMT27.-CSP) 

03,-CSP) 

SP,RO 

CSPNTB 

*10,SP 



C$MSG 



.SBTTL ....ERROH HANDLER -• ERR13 -- RAM ADDRESS ERRORS 



PRINTB 0fMT40,REGNUM 



ERR13i: 








MOV 


MPCSR. -CSP) 




MOV 


*TXTi2, (SfM 




MOV 


•FMT^i, ^P^ 




MOV 


*3. CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


010, SP 



F8 
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.••.ERROR HANDLER -- ERR13 -- RAM ADDRESS ERRORS 



4041 
4042 



4043 



4044 
4045 
4046 
4047 
4048 
4049 

4050 



021060 
021064 
021070 
021074 
021076 
021100 
021104 
021110 
021110 
021114 
021120 
021124 
021130 
021154 
021136 
021140 
021144 
021144 
021144 



4051 



4052 
4053 
4054 



4055 
4056 



405 7 
4058 
4059 



021146 
021146 
021146 
021146 
021152 
021156 
021162 
021166 
021170 
021172 
021176 
021176 
021202 
021206 
021210 
021212 
021216 
021222 
021224 
021224 
021230 
021234 
021240 
021244 
021246 
021250 
021254 
021260 
021260 
021260 



013746 
012746 
012746 
010600 
104414 
062706 
004737 

013746 
013746 
013746 
012746 
012746 
010600 
104414 
062706 



104423 



013746 
012746 
012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104414 
062706 
013701 
006301 

016146 
012746 
012746 
012746 
010600 
104414 
062706 
004737 



104423 



002336 
014150 
000002 



000006 
021262 

002330 
002326 
002324 
013535 
000004 



000012 



002416 
016602 
013503 
000003 



000010 

013513 
000001 



000004 
002336 



017766 
017353 
013712 
000003 



000010 
022032 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR PCXORGB j COMPUTE XOR OF GOOD AND BAD DATA 

PRINTS 0FMT23»GDATA,BDATA,XDATA 

MOV 

MOV 

MOV 

MOV 

MCV 

MOV 

TRAP 

ADD 

ENDMSG 

L10010: 

TRAP 



ERR14:: 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTB 0FMT22 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV REGNUM.R1 

ASL Rl {GET PTR TO VIA REG ASCII 

PRINTB 0FMT27.0TXTVR.TXTVRTCR1) 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR PC.ERRIU jGET 6 PRINT VIA REGISTERS 

ENDMSG 

LlOOlli 

TRAP 



SEQ 0096 



REGNUM.-CSP) 

OFMT40,-(SP) 

02,-CSP) 

SP.RO 

CIPNTB 

06, SP 



XDATA.-CSP) 
BDATA.-CSP) 
GDATA.-(SP) 
WMT23.-CSP) 
04, -(SP) 
SP,RO 
C*PNT6 
012. SP 



C$MSG 



.SBTTL ERROR HANDLER -- ERR14 -- VIA REG ERRORS (VIA PRINTOUT) 

BGNMSG ERR 14 

PRINTB 0FMT21 , 0TXT12 , MPCSR 



MPCSR.-(SP) 

0TXT12,-(SP) 

0FMT21.-CSP) 

03.-CSP) 

SP.RO 

C$PNTB 

010. SP 

OfMT22.-(SP) 
01, -(SP) 
SP,RO 
C$PNTB 
04.SP 



TXTVRT(Rl).-CSP) 

OTXTVR.-CSP) 

0FMT27,-(SP) 

03. -(SP) 

SP.RO 

CiPNTB 

010»SP 



C$MSG 



G8 
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....ERROR HANDLER -- ERR14 -- VIA REG ERRORS (VIA PRINTOUT) 



SEQ 0097 



4060 
















4061 
















4062 








.SBTTL 


ERROR HANDLER SUBROUTINES 






4063 
4064 






















» 








4065 
4066 








• 








4067 








. SBTTL 


, . .ERROR HANDLER SUBROUTINE - - XORGB 






4068 
















4069 








» 


PERFORM EXCLUSIVE OR BETWEEN "GDATA" 6 "BDATA" PUTTING 






4070 








t 


THE RESULT IN "XDATA" 






4071 
















4072 


021262 


010146 




XORGB; 


MOV Rl.-CSP) (PRESERVE WORKING REGISTER 






4073 


021264 


013701 


002324 




MOV GDATA.R1 jGET "GOOD" DATA 






4074 


021270 


013737 


C02326 002330 


MOV BDATA.XDATA t AND "BAD" DATA 






4075 


021276 


074137 


002330 




XOR Rl, XDATA jPERFORM EXCLUSIVE OR 






4076 


021302 


012601 






MOV (SP)f.Rl i RESTORE Rl 






407 7 


021304 


000207 






RTS PC jRETURN 






4078 
















4079 
4080 






















.SBTTL 


ERROR HANDLER SUBROUTINE -- ERR4* 






4081 
4082 






















i 


IDENTIFY € DUMP THE BYTE SELECT REGISTERS 






4083 
















4084 


021306 






ERR4*i 


PRINTX GFMT4 , 0TXT3 , 4TXT 1 








021306 


012746 


015602 






MOV 


*TXT1,-(SP) 




021312 


012746 


016004 






MOV 


4TXY3.-CSP) 




021316 


012746 


012247 






MOV 


*FMT4,-(SP) 




021322 


012746 


000003 






MOV 


«3, (SP) 




021326 


010600 








MOV 


SP.RO 




021330 


104415 








TRAP 


C$PNTX 




021332 


062706 


000010 






ADD 


*10.SP 


4085 


021336 








PRINTX 0FMT4A.BSR0.BSR1.BSR23SR3 








021336 


013746 


002210 






MOV 


BSR3.-CSP) 




021342 


013746 


002206 






MOV 


BSR2.-CSP) 




021346 


013746 


002204 






MOV 


BSR1.-CSP) 




021352 


013746 


002202 






MOV 


BSRO, (SP) 




021356 


012746 


012305 






MOV 


*FMT4A, -(SP) 




021362 


012746 


000005 






MOV 


♦5, -CSP) 




021366 


010600 








MOV 


SP.RO 




021370 


104415 








TRAP 


C$PNTX 




021372 


062706 


000014 






ADD 


014 .SP 


4086 


021376 








PRINTX 0FMT4B.0TXT2 








021376 


012746 


015640 






MOV 


♦TXT2.-CSP) 




021402 


012746 


012340 






MOV 


0FMT4B, -CSP) 




021406 


012746 


000002 






MOV 


02 , - ( SP ) 




021412 


010600 








MOV 


SP.RO 




021414 


104415 








TRAP 


CJPNTX 




021416 


062706 


000006 






ADD 


*6. SP 


4087 


021422 








PRINTX OfMT4C,BSR4.B5R5 i 8SR6.BSR7 








021422 


013746 


002220 






MOV 


BSR7, (SP) 




021426 


013746 


002216 






MOV 


BSR6, -CSP) 




021432 


013746 


002214 






MOV 


BSR5, -CSP) 




021436 


013746 


002212 






MOV 


BSR4, (SP) 




021442 


012746 


012345 






MOV 


0KMT4C, -CSP) 




021446 


012746 


000005 






MOV 


*■>, (SP) 




021452 


010600 








MOV 


SP.RO 



H8 
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ERROR HANDLER SUBROUTINE -- ERR4$ 



PRINTX 0FMT4B.4TXT2A 





021454 


104415 






021456 


062.706 


000014 


4088 


021462 








021462 


012746 


015702 




021466 


012746 


012340 




021472 


012746 


000002 




021476 


010600 






021500 


104415 






021502 


062706 


000006 


4089 


021506 








021506 


013746 


002230 




021512 


013746 


002226 




021516 


013746 


002224 




021522 


013746 


002222 




021526 


012746 


012305 




021532 


012746 


000005 




021536 


010600 






021540 


104415 






021542 


062706 


000014 


4090 


021546 








021546 


012746 


015741 




021552 


012746 


012340 




021556 


012746 


000002 




021562 


010600 






021564 


104415 






021566 


062706 


000006 


4091 


021572 








021572 


013746 


002240 




021576 


013746 


002236 




021602 


013746 


002234 




021606 


013746 


002232 




021612 


012746 


012345 




021616 


012746 


000005 




021622 


010600 






021624 


104415 






021626 


062706 


000014 


409? 


021632 


000207 




4093 








4094 








4095 








4096 








4 097 








4098 


021634 






4099 


021634 








021634 


012746 


016034 




021640 


012746 


016137 




021644 


012746 


012247 




021650 


012746 


000003 




021654 


010600 






021656 


104415 






021660 


062706 


000010 


4100 


021664 








021664 


013746 


002210 




021670 


013746 


002206 




021674 


013746 


002204 




021/00 


013746 


002202 




021704 


012746 


012655 



PRINTX 0FMT4A,BSR1O,BSRU,BSR12.BSR13 



PRINTX 0FMT4B.OTXT2B 



PRINTX 0FMT4C,BSR14,BSR15,BSR16,BSR17 





SEQ 0098 


TRAP 


CIPNTX 


ADD 


014, SP 


MOV 


0TXT2A, -(SP) 


MOV 


0FMT4B,-CSP) 


MOV 


02, -CSP) 


MOV 


SP.RO 


TRAP 


CSPNTX 


ADD 


06. SP 


MOV 


BSR13.-CSP) 


MOV 


BSR12. -CSP) 


MOV 


BSR11, -CSP) 


MOV 


BSR10, -CSP) 


MOV 


4PMT4A, -CSP) 


MUV 


05, -CSP) 


MOV 


SP.RO 


TRAP 


CJPNTX 


ADD 


014, SP 


MOV 


0TXT2B, -CSP) 


MOV 


WMT4B (SP) 


MOV 


#2, -(S»> 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


06, SP 


MOV 


BSR17, -(SP) 


MOV 


BSR16.-CSP) 


MOV 


BSR15. -CSP) 


MOV 


BSR14, -CSP) 


MOV 


0TMT4C, -CSP) 


MOV 


♦5.-CSP) 


MOV 


SP.RO 


TRAP 


ClPNTX 


ADD 


014. SP 



RTS 



PC 



.SBTTL ERROR HANDLER SUBROUTINE 



ERR5J 



ERR5*: 



COMMON ERROR SUBROUTINE TO PRINT SELECT REGISTERS 

PRINTX 0FMT4.0TXT6.0TXT4 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX #FMT11,WSR0,WSR2,WSR4 I WSR6 iDUMP THE SELECT REGISTERS 

MOV 
MOV 
MOV 
M0\ 
MOV 



0TXT4, ■{ SP1 
0TXT6, CSP) 
OfMT4, (SP) 
03. CSP) 
SP.^O 

ciPNrx 

010. SP 

WSR6, -CSP) 
WSR4, (.SP) 
WSR2. -CSP) 
USHO. '.SP 1 
OFMTU, ISP) 



18 
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ERROR HANDLER SUBROUTINE -- ERR5J 





021710 


012746 


000005 




021714 


0106CO 






021716 


104415 






021720 


062706 


000014 


4101 


021724 








021724 


012746 


016074 




021730 


012746 


012340 




021734 


012746 


000002 




021740 


010600 






021742 


104415 






021744 


062706 


000006 


4102 


021750 








021750 


013746 


002220 




021754 


013746 


002216 




021760 


013746 


002214 




021764 


013746 


002212 




021770 


012746 


012655 




021774 


012746 


000005 




022000 


010600 






022002 


104415 






022004 


062706 


000014 


4103 


022010 








022010 


012746 


012116 




022014 


012746 


000001 




022020 


010600 






022022 


104414 






022024 


062706 


000004 


4104 


022030 


000207 




4105 








4106 








4107 








4108 








4109 








4110 








4111 


022032 


004737 


004460 


4112 


022036 








022036 


012746 


016760 




022042 


012746 


016745 




022046 


012746 


013614 




022052 


012746 


000003 




022056 


010600 






022060 


104415 






022062 


062706 


000010 


4113 


022066 








022066 


013746 


002270 




022072 


013746 


002266 




022076 


01374fc 


002264 




0P2 102 


013746 


002262 




022106 


012746 


01362 7 




022112 


012746 


000005 




022116 


010600 






022120 


104415 






022122 


062 706 


000014 


4114 


022126 








022126 


012 746 


017015 




022132 


012 746 


013 755 




022136 


012746 


000002 



PRINTX 0FM.T4B.0TXT4A 



PRINTX tfFMTil.U<SRl0,WSRl2,WSR14,W5Rl6 ;DUMP THE SELECT 



PRINTB OENDEMB 





SEQ 0099 


MOV 


05, -CSP) 


MOV 


SP.RO 


TRAP 


CJPNTX 


ADD 


014, SP 


MOV 


0TXT4A, -CSP) 


MOV 


0FMT4B, -CSP) 


MOV 


02, -(SP) 


MOV 


SP,RO 


TRAP 


CtPNTX 


ADD 


06, SP 


REGISTERS 


MOV 


WSR16,-(S : >) 


MOV 


USR14.-CSP) 


MOV 


WSR12.-CSP) 


MOV 


WSR10, -(SP) 


MOV 


«FMTH,~(SP) 


MOV 


05 , • ( SP ) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


014, SP 


MOV 


<ME' DEMB. -(SP) 


MOV 


♦1, CSP) 


MOV 


SP.RO 


TRAP 


C*PNT8 


ADD 


04, SP 



RTS 



PC 



.SBTTL ERROR HANDLER SUBROUTINE 



ERR Uv 



COMMON ERROR SUBROUTINE TO GET/PRINT VIA REGISTERS 



ERR1H; JSR PC.GF.TVRS 

PRINTX OFMT24.OTXT16.0TXT17 



iGET VIA REGS FOR PRINTOUT 



PRINTX OFMT25,VREGS*0,VPtGS*2 ( VREGS*4,VREGS+6 



PRINTX 0FMT29 OTXTlfl 



MOV 


OTXU/. CSP) 


MOV 


0TXT16. (SP) 


MOV 


OTMT24, -(SP) 


MOV 


#3, (SP) 


MOV 


SP.RO 


TRAP 


CJPNTX 


ADD 


oto, sn 


MOV 


VREGS.b. -CSP) 


MOV 


VREGS*4, (SP^ 


MOV 


VREL,S*2, •( SP1 


MOV 


VRFGS*0. r ; P) 


MOV 


*f'MT2S, iSP) 


MOV 


OS , { SP ) 


MOV 


SP.RO 


TRAP 


C1PN1X 


ADD 


014, SP 


MOV 


tfTxri*. (sp^ 


MOV 


Of MT2 , .», -iSP> 


MOV 


<?2 , - k SP *> 
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022142 


010600 






022144 


104415 






022146 


062706 


000006 


4115 


022152 








022152 


013746 


002300 




022156 


013746 


002276 




022162 


013746 


002274 




022166 


013746 


002272 




022' 72 


012746 


013657 




022176 


012746 


000005 




022202 


010600 






022204 


104415 






022206 


062706 


000014 


4116 


022212 








022212 


012746 


017056 




022216 


012746 


01375^ 




022222 


012746 


000002 




022226 


010600 






022230 


104415 






022232 


062706 


000006 


4117 


022236 








022236 


013746 


002310 




022242 


013746 


002306 




022246 


013746 


002304 




022252 


013746 


002302 




022256 


012746 


013627 




022262 


012746 


000005 




022266 


010600 






022270 


104415 






0222 72 


062706 


000014 


4118 


022276 








022276 


012746 


017U2 




022302 


012746 


013755 




022306 


012746 


000002 




022312 


010600 






022314 


104415 






022316 


062706 


000006 


4119 


022322 








022322 


013746 


002320 




022326 


013746 


002316 




022332 


013746 


002314 




022336 


013746 


002312 




022342 


012746 


013657 




022346 


012746 


000005 




022352 


010600 






022354 


104415 






022356 


062 706 


000014 


4120 


022362 


000207 




4121 








4122 








4123 








4124 








4125 








4126 








4 It"'/ 


022*64 


004? 3/ 


004 360 


412fc 


022 5 70 








022370 


012746 


016645 



PRINTX 0FMT26,VREGS*8 t ,VREGS*lO,,VREGS-12.,VREGS*14, 



PRINTX 0FMT29.0TXT19 



PRINTX 0FMT25 t VREGS*16, , VREGS* 18, , VREGS+20. ,VREGS*22 



PRINTX 0FMT29.0TXT2O 



PRINTX V>FhT26,VREGS*24, ,VREGS*26, , VREGS*2fl, ,VREGS>30 





SEQ 0100 


MOV 


SP,R0 


TRAP 


CIPNTX 


ADD 


06, SP 


MOV 


VREG5*14. , -(SP) 


MOV 


VREGSfl2. , -CSP) 


MOV 


VREGG*10. , (SP; 


MOV 


VREGS+8. , -CSP) 


MOV 


•FMT26.-CSP) 


MOV 


05, -(SP) 


MOV 


SP,RO 


TRAP 


CiPNTX 


ADD 


014, SP 


hov 


0TXT19. -(SP) 


MOV 


0FMT29, CSP) 


MOV 


*2 , - C SP ) 


MOV 


SP.RO 


TRAP 


CJPNTX 


ADD 


06, SP 


MOV 


VRFGS*22. , -(SP) 


MOV 


VREGSf20. , -CSP) 


MOV 


VREGSf 18. , CSP) 


MOV 


VREGS*16. , (SP) 


MOV 


0fMT25,-(SP) 


MOV 


05. (SP) 


MOV 


SP.RO 


TRAP 


CiPNTX 


ADO 


014. SP 


MOV 


0TXT2O, (SP) 


MOV 


0FMT29.-CSP) 


MOV 


02, (SP) 


MOV 


SP.RO 


TRAP 


CSPNTX 


ADO 


06, SP 


MOV 


VREGS»30. . (SP) 


MOV 


VREGS*28. , -(SP1 


MOV 


VREGS*26. , -(SP) 


MOV 


VREGS*24. , -(SP) 


MOV 


0FMT26, (SP) 


MOV 


05 . - ( SP ) 


MOV 


SP.RO 


TRAP 


CiPNTX 


ADD 


014, SP 



R 



PC 



.SBTTL ERROR HANDLER SUBROUTINE - ERR12* 

1 COMMON ERROR ROUTINE TO GET AND PRINTOUT UStRT RfcGISTERS 

iUET USYRT REGS FOR PRINTOUT 

MOV 



ERRl2*i JSR PC.GETURS 

PRINTX 0FMT24,0TXT13,0TXT14 



0TXT14, tSP) 
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4129 



4130 



4131 



4 1 3? 
4133 
4134 



022374 
022400 
022404 
022410 
022412 
022414 
022420 
022420 
022424 
0224 30 
022434 
022440 
022444 
022450 
022452 
022454 
022460 
022460 
022464 
022470 
0224 74 
022476 
022500 
022504 
022504 
022510 
022514 
022520 
022524 
022530 
022534 
022536 
022540 
022544 



012746 
012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
017746 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
012746 
010600 
104415 
062706 

013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 
000207 



016630 
013614 
000003 



OO0010 

002250 
002246 

002244 
002242 
013627 
000005 



000214 

016703 
013755 
000002 



000006 

002260 
002256 
002254 
002252 
01365 7 
000005 



000014 



PRINTX GFMT25, UREGS *0» UREGS *2, UREGS *4, UREGS *6 



PRINTX 0FMT29.OTXT15 



PRINTX 0FMT26 , UREGS * 10 , UREGS * 12 • UREGS f 14 , UREGS * 16 



RTS 





SEQ 0101 


MOV 


0TXT13.-CSP) 


MOV 


4FMT24,~(SP) 


MOV 


03, -CSP) 


MOV 


SP,RO 


TRAP 


OPNTX 


ADD 


010, SP 


MOV 


UREGS»6,-(SP) 


MOV 


UREGS »4, -CSP) 


MOV 


UREGS»2. -CSP) 


MOV 


UREGS »0, CSP) 


MOV 


4FMT25.-CSP) 


MOV 


$5, -CSP) 


MOV 


SP.RO 


TRAP 


C1PN1X 


ADD 


014, SP 


MOV 


0TXU5. -CSP) 


MOV 


OFMT29, -CSP) 


MOV 


*?. CSP) 


MOV 


SP.RO 


TRAP 


OPNTX 


ADD 


06, SP 


MOV 


UREGS *16, -CSP) 


MOV 


UREGS»14, -CSP; 


MOV 


UREGS>12, -CSP) 


MOV 


UREGS ♦ 10, -CSP) 


MOV 


*FMT?6.-(SP) 


MOV 


45. -CSP) 


MOV 


SP.RO 


TRAP 


OPNTX 


ADD 


014, SP 



PC 



EVEN 
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4139 
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414) 
4142 
4143 
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4144 
4145 
4146 
4147 



022546 

022546 
022546 
022550 
022552 
022554 



1/7/77 
177777 

177777 



SEQ 0102 



.SBTTL LOAD DEVICE PROTECTION TABLE 

j ///////////////////// ' /////////////////////////////////////////////////////// 

j/ THIS TABLE IDENTIFIES THE LOAD DEVICE TO THE SUPERVISOR, SO THAT IT CAN BE 

i/ PROTECTED FROM TESTING, IF DESIRED, 

i ///////////////////////////////////////////////////////////////////////////// 



BGNPROT 

.WORD -1 
.WORD -1 
.WORD -1 
ENDPROT 



{DON' T CHK CSR ADRS 

{DON'T CHK MASSBUS UNIT NO. 

{DON' T CHK DRIVE NO. 



LSPROT 



M8 
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INITIALIZE SECTION 



SEQ 0103 



4149 






4150 






4151 






4152 






4153 






4154 






4155 






4156 022554 






022554 






4157 






4158 022554 






022554 


012746 


000340 


022560 


012 746 


170000 


022564 


012746 


000140 


022570 


012746 


000003 


022574 


104437 




022576 


062706 


OOOOIO 


4159 






4160 






4161 022602 


010637 


002340 


4162 022606 


005037 


002344 


4163 022612 


005037 


002400 


4164 022616 


005037 


002376 


4165 022622 


005037 


002402 


4166 022626 


005737 


002370 


4167 022632 


001007 




4168 022634 


013737 


000004 002372 


4169 022642 


013737 


000006 002374 


4170 022650 


000406 




4171 






4172 022652 


013737 


002372 000004 


4173 022660 


013737 


002374 000006 


4174 






4175 022666 


012737 


000001 002370 


4176 






417/ 






4178 022674 






022674 


012700 


000040 


022 700 


104447 




4179 022702 






022702 


103415 




4180 






4181 






4182 022704 






022704 


012700 


000037 


022 710 


104447 




4183 022712 






022712 


103411 




4184 






4185 






4186 022/14 






022714 


012700 


000035 


022720 


104447 




4187 022722 






022722 


105411 




•UflH 






4189 







.SBTTL INITIALIZE SECTION 

\/ THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
\/ AT THE BEGINNING OF THE TEST SEQUENCE ON THE NEXT UNIT, 



BGNINIT 



SETVEC #140 ,#170000 ,#340 



LSINIT 



}ODT ROM ADDRESS 





jJB REV A-0 


MOV 


#340, -CSP) 


MOV 


#170000, -CSP) 


MOV 


#140. -CSP) 


MOV 


#3. -CSP) 


TRAP 


CJSVEC 


ADD 


#10, SP 



6$ 



9$ 



MOV 


SP.PSTACK 


CLR 


SU6RPC 


CLR 


CHPTYP 


CLR 


ERR0R1 


CLR 


SAVLEN 


1ST 


FRSTIM 


BNb 


6$ 


MOV 


S#4,SAVE4 


MOV 


Q#6,SAVE6 


BR 


9$ 


MOV 


SAVF4,Q#4 


MOV 


SAVE6,Q#6 


MOV 


#1, FRSTIM 



j SAVE BASE -LEVEL STACK POINTER 

, CLEAR SUBR CALL PC 

{CLEAR USYRT CHIP TYPE INDICATOR 

; CLEAR ERROR FLAG 

{CLEAR CHAR LENGTH FROM SETUP 

{SEE IF FIRST TIME THROUGH AFTER LOAD 

sBR IF NOT 

{SAVE ERROR TRAP VECTOR 



{RESTORE ERROR TRAP VECTOR 



{MARK FLAG FOR NEXT TIME THROUGH 



{SEE IF PROGRAM JUST STARTED, BR IF YES 
READEF #EF. START 



BCOMPLETE 



STARST 



MOV 
TRAP 

BCS 



#EF.START,RO 
CSREFG 

STARST 



{SEE IF PROGRAM JUST RESTARTED, BR IF YES 
READEF #EF. RESTART 



BCOMPLETE 



STARST 



{SEE IF 1H1S IS A NEW PASS, BR IF YES 
READEF 0EK.NEW 



MOV 
TRAP 


#EF. RESTART, RO 
CSREFG 


BCS 


STARST 


MOV 
TRAP 


#EF.NEW,RQ 
C$REFG 



BCOMPLETE 



NEWST 



BCS 



NEWST 



{SEE IF PROGRAM WAS JUST CONTINUED 
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INITIALIZE SECTION 



4190 



4191 

4192 

4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 



4209 

4210 
4211 
4212 
4213 
4214 
4215 
4216 
^217 
421fl 
4219 
4220 
42. '1 
4222 
4223 
4224 
4225 
4226 
4227 
42<?8 
4229 
4230 
4231 
4 232 
4233 
4234 

4^5S 
4236 
4/3/ 
4238 



022724 
022724 
022730 
022732 
022732 
022734 

022736 
022736 



022742 
022746 
022746 
022754 
022760 



022766 
022766 
022772 
022772 
0227 76 
023000 
023002 
023002 
023004 
023010 
023012 
023020 

023024 
023026 

023032 
023034 
023036 
023042 



023044 
023050 
023054 
023062 
023066 
023072 
0230 76 
023102 
023106 

023112 
023112 
02 5114 
02311b 
025120 
02312^ 



012737 
005237 
012737 



005237 

013700 
104442 

oioooi 

103403 
006337 
000766 
053737 
006337 

012102 
012703 

010223 
005202 
022703 
001373 



011137 
012137 
062737 
012137 
012137 
012137 
012137 
012137 
011137 



1044 3 3 
CO e »0:>0 

000.. ■■■.) 
077002 



000036 



012700 
104447 

103473 
000414 



005037 002412 



005037 002404 



177777 
002412 
000001 



002334 
002334 

002406 

002406 
002406 

002416 
002456 



002456 
002460 
000004 
002462 
0C2464 
002466 
0024 70 
0024 72 
002474 



READEF #EF. CONTINUE 

BCOMPLETE ENDIT 
BR GETPRM 



SEQ 0104 



MOV 4EF. CONTINUE, RO 

TRAP C$REFG 

BCS ENDIT 



STARST: 



CLR 



STARES 



{CLEAR DEVICE MAP 



002334 
002406 



NEWSTj 



CLR DEVMAP 

MOV 0-1, LOGDEV 

INC STARES 

MOV tf6IT0, DEVPTR 



i GET UNIBUS ADDRESS, VECTOR, 
i CONNECTOR INFORMATION FOR 
GETPRM; 

INC LOGDEV 
GPHARD LOGDEV, Rl 



BCOMPLETE 



10$ 



002404 10$ 



11*: 



00246Q 



.85 



UE 



1M; 

ENDIT: 



ASL 
BR 
BIS 
ASL 

MOV 
MOV 

MOV 
INC 
CMP 
BNE 



MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
LSI BUS 
BRESET 

CI R 

HOP 
SOB 



DEVPTR 

GETPRM 
DEVPTR, DEVMAP 

DEVPTR 

(R1)»,R2 

0t1PCSR,R3 

R2.CR3)* 
R2 

0BSEL17*2,R3 
11* 



(Rl).MPIVEC 
(Rl^.MPOVEC 
04.MPOVEC 
(R1)*,MPRI0R 
(R1)»,LUSUI1 
CR1)*,LUSWI2 
(R1)*,BRDTYP 
(R1)*.TSTC0N 
(Rl), BORATE 
RESET, TO IN1T 



RO 



; CLEAR FLAG TO SHOW JUST HAD STA OR RES 



jRESET LOGICAL DEVICE TO -1 

{INCREMENT NO. OF PASSES SINCE STA OR RES 

iINIT DEVICE MAP BIT POINTER 

PRIORITY LEVEL, SWITCH PACKS, TEST 
THIS LOGICAL DEVICE 

{INCREMENT LOGICAL DEVICE NUMBER 
{GET P-TABLE POINTER INTO Rl 



{BR IF DEVICE AVAILABLE 

{SHIFT DEVICE POINTER 
{SKIP THIS DEVICE 
{SET BIT FOR THIS DEVICE 
{SHIFT BIT POINTER 



{R2-CSR ADDR VALUE 

{R3-P0INTER TO CSR ADDR STORAGE AREA 

{PUT CSR ADDRESSES IN 'BSEL' AREA 

{BUMP BSEL ADDR 

{ALL 16 ADDRESSES MOVED ? 

{NO: DO ANOTHER ADDRESS 

jYESj CONTINUE 

{GET DMVU INPUT INTRPT VECTOR 



MOV 


LOGDEV. RO 


TRAP 


CfGPHRD 


MOV 


R0.R1 



BCS 



10* 



{GET 

{GET 
; GE T 

;GET 
{GET 
{GET 
iGfT 
DMVU 



DMVU OUTPUT INTRPT VECTOR 

DMVU DEVICE PRIORITY 

LU SUITCH PACK #1 

LU SWITCH PACK 02 

DMV-11 BOARD TYPE 

TEST CONNECTOR INDICATOR 

BAUO RATE FOR THIS DEVICE 



R0.15* 



; 



TPA* 

1 Lftt (H I Hi TO ALLOW COMPLETION 
UF UMV11 MlCRQDlAUNUliUCS. 



C*RtStT 
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SEQ 0105 



4239 023122 
023122 
023122 



fcNUINIT 



104411 



LlOOISs 



TRAP 



CUNIT 



C9 
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4241 
4242 
4 243 

4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 

4256 
4257 



4258 
4259 



4260 
4261 
4262 
4263 
4264 
4265 
4266 
426/ 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 



42/6 
4277 
4278 



4279 
4280 
4281 

4282 



4285 
4284 



023124 
023124 

023124 
023124 
023130 
023134 
023140 
023144 
023146 
023152 
023156 
023162 

023166 

023170 
023172 

023174 
023200 
023204 
023206 
023210 
023212 

023214 
023214 
023220 
023222 
023226 
023230 
023230 
023234 



012746 
012746 
012746 
012746 
104437 
062706 
005037 
012702 
013703 

105723 
006302 
103375 

013703 
012702 
005723 
006302 
006302 
103374 



012700 
104436 
005737 
001403 

013700 
104451 



023236 000240 



023240 
023240 

023240 

0H3242 



000000 
023242 
000004 
000003 

000010 
002546 
000001 
0024 16 



002416 
000001 



000004 
002546 

002334 
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.SBTTL AUTO DROP UNIT SECTION 

/////////////////////'/////////////////////////////////////////////////////// 

/ THE AUTO DROP CODING DETERMINES WHETHER OR NOT THE DEVICE WHOSE P- TABLE 
/ WAS JUST OBTAINED IS READY FOR TESTING. AND IT IS DROPPED IF NOT READY. 
///////////////////////////////////////////////////////////////////////////// 

THIS ALGORITHM IS THE SAME A CNOMA TEST 1 EXCEPT THAT TEST 
WILL JUST REPORT THE FAILURE ANO GO ON - THIS ROUTINE WILL CAUSE THE 
DEVICE TO BE OROPPED IF A BUS-TIMEOUT OCCURS WHEN ANr OF THE CSR'S 
ARE ACCESSED WITH EITHER A "TST" OR "TSTB" INSTRUCTION. 

BGNAUTO 



SEQ 0106 



SETVEC 04,0AD.HIT,00 



00 , - C SP ) 

♦AD. HIT, (SP) 

04 , - ( SP ) 

03, (SP) 

CfSVEC 

010, SP 



u 



2$ 



CLR 


TM^O 


MOV 


01. R2 


MOV 


BSEL0.R3 


TSTB 


(R3)» 


ASL 


R2 


BCC 


11 


MOV 


BSEL0.R3 


MOV 


<M .R2 


TST 


Cf5)» 


HSl. 


R2 


ASL. 


R2 


BCC 


2« 



CLRVEC 04 



104461 
050237 



002b46 





TST 
BEG 
DODU 


TMPC 
AD. OK 
LOGDEV 


AD, OK: 


NOP 
ENDAUTU 




AD. HIT; 


BIS 


Ru\TMPQ 



LIAUTO: : 

iSETUP INVALID-ADDRESS TRAP VECTOR 

MGV 
MOV 
MOV 
MOV 
TRAP 
ADD 

j INITIALIZE TRAP FLAG REGISTER 

jFLAG BIT 

tINIT ADDRESS POINTER 

jACCESS THE CSR'S BY BYTES. 



iRE-INIT ADDRESS POINTER 

|Rf INIT FLAG BIT 

j ACCESS THE CSR'S BY WORDS, 



jRESTORE THE VECTOR TO DS 

MOV 04, RO 

TRAP C*CVEC 

iDrD Wf. GET HIT WTTH AN INVALID ADDRESS TRAP? 

|N0. EXIT TEST 

lYES, DROP THIS LOGICAL DEV. 

MOV LOGDEV ,R0 

TfU'P ctooDu 



j (FOR PATCHING IN A HALT IF NECESSARt ) 

L 10014; 
I FLAG THE HIT IF WE GET IT' 



TRAP 



CJAUTO 



1)9 
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4 t ^8S 023246 000002 RTI jRETURN 

4^86 



SEQ 0107 
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CLEANUP CODING SECTION 

4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 023250 

023250 
4296 
4297 
4298 023250 

023250 

023250 104412 



SEQ 0108 



. SBTTL CLEANUP COOING SECTION 

I ///////////////////// '////////////////////////// ///////////////////// 
\/ THE CLEANUP COOING SECTION CONTAINS THE CODING THAT IS PERFORMED 
}/ AT THE END OF THE TEST SEQUENCE ON A PARTICULAR UNIT. 
\//////// /////////////////////////////////////////////////// ////////// 



BGNCLN 



ENDCLN 



L$CLEANj : 



L10015; 



TRAP 



CSCLEAN 



CNDMEAO DMVil LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;46 



F9 

PAGE 62 



DROP UNIT SECTION 

4300 
4301 
4302 
4303 
4304 
4305 
4306 

4307 023252 
023252 
4308 

4309 023252 
023252 104433 

4310 023254 
023254 
023254 104453 



.SBTTL DROP UNIT SECTION 

i ///////////////////// '/////////////////////////////////////////////////////// 

j/ THE DROP -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

{/ TO NO LONGER BE TESTED. 

i /////////////////////////////////////////////////////////////////// ////////// 



BGNOU 

♦.ISSUE UNIBUS RESET TO CLEAN UP 
BRESET 

ENDDU 



L*DU: : 



L 100 16: 



TRAP 



TRAP 



CIRESET 

C*DU 



SEQ 0109 



G9 
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4312 

4313 
4314 
4315 
4316 
4317 
4318 
4319 

4320 023256 
023256 

4321 023256 
023256 
023256 104452 
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.SBTTL ADO UNIT SECTION 

}///////////////////// V////////////////////////////////////////////////////// 

}/ THE ADD-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 

j/ TO BE (A) TESTED FOR THE FIRST TIME, OR CB) RESUMED IN TESTING. IF 

;/ "EF.AUNIT" IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 

j ///////////////////////////////////////////////////////////////////////////// 



SEQ 0110 



BGNAU 
ENDAU 



L$AU: : 
L10017} 



TRAP 



C$AU 
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SEQ 0111 



4333 
4334 
4335 

4336 
4337 
4338 
4339 
4340 

4341 



4342 
4343 
4344 
4345 
4346 
4347 

4348 



4349 

4350 
4351 
4352 
4353 
4 354 
4355 
4356 
4357 
4358 
4359 
4 360 
4361 
4362 
4 363 
4 564 
4 365 
4366 



023260 

023260 004 737 



023264 
023270 
023272 
023274 
023276 
023276 
023300 
023300 
023302 

023304 
023310 
023312 
023314 
023316 
023316 
023320 
023320 
023322 

023324 
023330 
023332 

023334 
023340 
023342 

023344 
023350 
023352 

023354 
023360 

023362 
02 3364 

023366 



004537 
063626 
000000 
103003 

104460 

104410 
000254 

004537 
120013 
000210 
103003 

104460 

104410 
000234 

004537 
000001 
000007 

004537 
0OOO01 
0000 10 

004537 
000000 
000000 

004537 
000125 
000010 
103003 



005376 
007234 



003712 



010250 



010250 



010250 



010136 



.SBTTL TEST 1 -- RX DATA FLUSHING TEST 

I* 

i* TEST 1 -- RX DATA FLUSHING TEST 

j + 

;* 

;* IN BCP MODE/HALF DUPLEX IT IS DESIRABLE TO HAVE THE ABILITY TO FLUSH 

j* THE USYRT OF ITS CRC CHARACTERS. THIS FLUSHING IS ACCOMPLISHED BY READING 

;* TO THE VIA SHIFT REGISTER. 

j* THIS TEST VERIFIES THAT WHEN THE VIA SR IS READ, 8 PULSES WILL 

}♦ BE GENERATED AT THE CB1 PIN ( WHICH DIRECTLY FEEDS THE CHARACTER FIFO). 

I* 

J 

; BGNTST 

Tl: s 



JSR 


PC.INIDMV 


iINIT DMV-11, ENTER M-LOOP 




JSR 


R5.INITRN 


{LOAD 1 SOM, CLK TX UNTIL ACTIVE 




DDCMPJNOCHKJSYNCHJ 


STRIPS (SET DDCMP.NO CHECK ,SYNCH»226 









j USE 8 BIT CHARS 




BCC 


,♦8. 


{BR IF NO ERROR 




ERROR 




{REPORT STACKED ERROR 








TRAP 


C$ERROR 


ESCAPE 


TST 


j SKIP TO END OF TEST 








TRAP 


CiESCAPE 






.WORD 


L10020-* 


JSR 


R5.WRITEI 


iSET SHIFT REGISTER TO 




VIAACR 




1 "SYSTEM CLOCK RATE" MODE (CBl'CLlO 




210 




i C BIT 7 PREVIOUSLY SET) 




BCC 


.♦8. 


i BR IF NO ERROR 




ERROR 




j REPORT STACKED ERROR 








TRAP 


C*ERR0R 


ESCAPE 


TST 


j SKIP TO END OF TEST 








TRAP 


CJESCAPE 






.WORD 


L 10020 ~. 


JSR 


R5.TXCTRL 


{OUTPUT 1ST SYNC CHARACTER 




rsoM 
1 . 




{AND KNOCK DOWN TBMT 




JSR 


R5.TXCTRL 


{OUTPUT 2ND SYNC CHARACTER 




TSOM 
8. 




{AND KNOCK DOWN TBMT 




JSR 


Rb.TXCTRL 


{CLEAR TSOM (GET READY TO SEND DATA) 




000 









JSR 

125 


R5.TXCHAR 


lLOAD 125, TX 3RD SYNCH 




8. 

BCC 


>♦&♦ 


j BR IE NO tRROR 




ERROR 




{REPORT STACKED ERROR 
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4367 



4368 
4369 
4370 
43.U 
4372 
4373 
4374 
4375 

43 7 6 



4377 
4378 
4379 
4380 
4381 
438? 
4383 
4384 
4385 

4386 



4387 
4388 
4389 
4 390 
4391 
439? 

4393 



4 394 
4*95 
4396 
4 597 
4398 
4399 
4400 
4401 
4402 

4403 



4404 
440^) 
4406 
4 40/ 
4408 



023366 
023370 
023370 
023372 



104460 

104410 
000164 



023374 012702 000004 



023400 
023404 
023406 
023410 

023412 
023412 
023414 
023414 
023416 

023420 
023424 

023426 
023432 
0234 34 
023436 
023440 
023440 
023442 
023442 
023444 

023446 
023452 
023454 
023456 
023460 
023460 
023462 
023462 
0234t>4 



004537 003712 

120000 
000142 
103003 

104460 

104410 
000140 

004537 012072 
OOOOOl 

004537 003712 
120000 
000152 
103003 

104460 

104410 
000112 

004537 003566 
120012 
000000 
103003 

104460 

104410 
0OO072 



023466 077234 



023470 
023474 
0234 76 
023500 
023502 
02 3504 
C23504 
023506 
023506 



023512 
023516 
023520 



0O4537 
000377 
000000 
1OOO00 

103003 

104460 

104410 
OC0046 

00453 7 
00000 3 
000000 
10QQOO 



1$ 



010350 



010350 



ESCAPE TST 



{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CJERROR 

C$ESCAPE 
U0020-. 



MOV 04.R2 

JSR R5.WRITEI 
VIAORB 

TXEN!RXEN!TTLOOP 

BCC .»8. 
ERROR 

ESCAPE TST 



JSR 

1 



R5.STEPLU 
R5.WRITEI 



JSR 

VIAORB 

TXEN'RXEN'RTSNDJTTLQQP 

BCC . *8. 

ERROR 

ESCAPE TST 



JSR 


R5.READI 


VIASR 




000 




BCC 


. *8. 


ERROR 




ESCAPE 


TST 



SOB 



R2 , 1$ 



JSR 

3 77 



NOCRDA 

BCC ,*8. 

ERHOR 

ESCAPE TST 



R5.RXCHAR 



JSR 
00 3 

NUCRDA 



R5 t RXCHAR 



I** TRANSFER 4 CHARACTERS ** 

{SET RT3 £ FULL DUPLEX CSO STEPLU WORKS) 



}BR IF NO ERROR 

j REPORT STACKED ERROR 

I SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



C TERROR 

C ESCAPE 
1. 10020 -. 



jFLIP TSO BIT VALUtCWILL BE SHIFTED INTO 
j FIFO DURING FLUSHING). 

;CLEAR RTS, SET HDX (SO THAT SR CLOCK WORKS) 

it 

j BR IF NO ERROR 

j REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CJERROR 

CJESCAPE 
L10020-. 



{READ VIA SHIFT REGISTER C SHOULD CAUSE 
j 8 CLOCKS FROM CB1 LEAD *> FIFO) 



j BR If NO ERROR 

I REPORT STACKED ERROR 

l SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



ClLRROR 

C$E SCAPE 
L 10020 -. 



{♦* LOOP UNTIL ALL 4 SENT (VIA CBU ♦♦ 



{READ AND CHECK FOR 37/ 

j* ERROR HERE INDICATES HI -SPEED SR CLOCK 

I* DIDN' T WORK. 



|RR IF NO FRROR 
{REPORT STACKED ERROR 

jSKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CU RROR 



C$t SCAPE 
L 10020 ■♦ 



{READ AND CHICK F OR 000 

j* ERROR HERE INDICATES HI-SPtfcD SR CLOCK 

i* DIDN'T WORK* 



SEQ 0112 
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4409 023524 

4410 023526 
023526 

4411 023530 
023530 
023532 

4412 

4413 023534 

4414 023540 

4415 023542 

4416 023544 

4417 023546 

4418 023550 
023550 

4419 023552 
023552 
023554 

4420 023556 
023556 
023556 



104410 
000024 

004537 
000360 

000000 
100000 
103003 

104460 

104410 
000002 



104401 



010350 



BCC 
ERROR 



ESCAPE 



JSR 
360 


NOCRDA 

BCC 

ERROR 

ESCAPE 



KNDTST 



TST 



R5»RXCHAR 

, *8. 
TST 



jBR IF NO ERROR 
{REPORT STACKED ERROR 

I SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CIERROR 



C IE SCAPE 
L10020-. 



,READ AND CHECK FOR 377 

}♦ ERROR HERE INDICATES HI -SPEED SR CLOCK 

: * DIDN' T WORK 



j BR IF NO ERROR 
{REPORT STACKED ERROR 

I SKIP TO END OF TEST 



L 10020: 



TRAP 

TRAP 
.WORD 



TRAP 



C$ERROR 

ClF.SCAPE 
1.10020- . 



ClETST 



SEQ 0113 



I<9 
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SEQ 0114 



4435 
4436 
4437 
4433 
4439 
4440 



4441 
4442 
4443 
4444 
4445 
4446 
444 7 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 

4468 
4469 



023560 
023560 
023566 
023572 
023576 
023600 
023602 
023602 
023604 



023606 
023612 
023616 
023622 
023626 
023632 
023634 
023636 
023640 
023644 



023646 
023652 
023656 
023662 
023666 
0236/0 
0236/2 
023676 
023700 
023704 
023710 
023716 
023722 

0237 50 



012737 
004737 
004537 
000001 
103002 

1044 32 
001630 



012701 
012702 
112137 
010237 
004537 
OOOOOO 
000000 
005202 
020127 
103764 



012701 
012702 
010237 
0O4537 
OOOOOO 
OOOOOO 
12213/ 
001422 
010237 
00503 7 
116137 
005037 
113737 



♦ **************************************************************************** 
TEST 2 -- INTEGRAL MODEM INTERFACE TEST 



000002 002414 

005376 

007.532 



THE INTEGRAL MODEM IS SELECTED BY THE PROGRAM AND A MESSAGE IS 
TRANSMITTED, RECEIVED, AND CHECKED USING A TURNAROUND CONNECTOR ON 
THE BOARD OR AT THE END OF A CABLE. THE FOLLOWING MESSAGE WILL BE 
SENT IN BCP MODE WITH CRC-16 SPECIFIED: 

SYNC SYNC 000 125 252 377 000 CRC1 CRC2 SYNC 

IF THE P-TABLE FOR THE CURRENT UNIT INDICATES THAT NO EXTERNAL 
TURNAROUND IS PROVIDED. THE TEST WILL BE SKIPPED FOR THAT UNIT. 

-*************************************************************************** 

BGNTST 

T^ * : 
{SET TEST NO. FOR POSSIBLE 'PRINTOUT 
{INIT DMV -11, ENTER MAINT LOOP 
iSFE IF THIS INTERFACE CAN BE RUN 



MOV 


*2. , TSTNUM 


JSR 


PC.INIDMV 


JSR 


R5.CKLPBK 


INTGRL 




BCC 


2$ 


EXIT 


TST 



{BR IF YES 

{WRONG INTERFACE - SKIP TEST 



TRAP 
.WORD 



CU-XIT 
L10021 



025436 
001000 
023634 
023632 
003712 



026263 



025436 
001000 
023666 
003566 



0236/0 

002336 
002324 
177777 
002326 
023670 



jLOAD 6502 MICROCODE FOR INTEGRAL MODEM TEST INTO RAM PAGE 
2$: 

3$: 



4$ 

6$ 



MOV 

MOV 

MOVB 

MOV 

JSR 

.WORD 

.WORD 

INC 

CMP 

8L0 



*MC0DE,R1 

0RAMADR.R2 

CRl)*,6i 

R2,4$ 

R5,WRITEI 





R2 

Rl^ENDCOD 

3$ 



{GET STARTING ADRS OF DMV MICROCODE 

{GET STARTING ADRS OF RAM PAGE 2 

{SET DATA BYTE TO BE WRITTEN 

t SET RAM WRITE ADRS 

jWRITE A DATA BYTE INTO RAM 



{TNCR RAM AORS 

{SEE IF ALL CODE LOADED YET 

j BR IF NOT 



jREAD AND VERIFY 6502 MICROCODE IN RAM 



MOV OMC0DE.R1 

MOV 4RAMADR.R2 

8$: MOV R2,10$ 

JSR R5.READI 

10$: .WORD 

12$! .WORD 

CMPB (H1)»,1LM 

BEQ 16$ 

MOV R2.RLGNUM 

CLR GDATA 

002324 MOVB -1(R1), GDATA 

CLR BDATA 

002326 MOVB 12$, BDATA 

{REPORT RAM ERROR LOADING MICPOCODt 

GEDF LM79.ERR13 



{GET STARTING ADRS OF DMV MICROCODE TO CHECK 
{GET STARTING ADRS OF RAM PAGE 2 
{SET RAM READ ADRS 
{READ A RAM BYTE 



{SEE IF BYTE IS CORRECT 

{BR IF CORRECT 

{SET RAM ADRS FOR ERROR REPORT 

{SET EXPECTED RAM DATA 



{SET ACTUAL RAM DATA 



L.9 



CNDMEAO DMV11 LINfc UNIT DIAG3 MACRO M1200 22-FE8-64 15:46 PAGE 66-1 
TEST 2 -- INTEGRAL MODEM INTERFACE TEST 



023750 


104455 




023732 


000046 




023734 


015125 




023736 


021030 




4470 023740 






025740 


104410 




025742 


001472 




44 71 023744 


005202 




4472 023746 


020127 


026263 


4473 023752 


103741 




44 74 






4475 






4476 023754 


004537 


003712 


447? 023760 


120000 




4478 023762 


000031 




4479 023764 


004537 


003712 


4480 023770 


120000 




4481 023772 


000030 




4482 023774 


004537 


003712 


4463 024000 


120404 




4484 024002 


000226 




4485 024004 


012737 


065400 024024 


4486 024012 


000337 


024024 


4487 024016 


004537 


003712 


4488 024022 


120405 




4489 024024 


000000 




4490 024026 


004537 


005410 


4491 024032 


000110 




4492 024034 


103003 




4493 02403d 






024036 


104460 




4494 024040 






024040 


104410 




02*042 


001372 




4495 024044 


004537 


003712 


4496 024050 


120403 




4497 024052 


000001 




4498 024054 


004537 


003712 


449? 024060 


120402 




4500 024062 


000237 




4501 024064 


004537 


006014 


4502 024070 


000000 




4503 024072 


103003 




4504 024074 






024074 


104460 




4505 024076 






024076 


104410 




024100 


001334 




4506 






450/ 






4508 024 102 


005077 


156320 


4509 024106 


012777 


001000 156312 


4510 024114 


112777 


000005 156300 


4511 






4512 024122 


012/01 


001 i 50 


4513 024126 


005301 











SEQ 0115 






I "DEVICE FATAL" ERROR 38 








TRAP 


C$ERDF 






.WORD 


38 






.WORD 


EM79 






.WORD 


ERR13 


ESCAPE 


i TST 










TRAP 


C$ESCAPE 






.WORD 


L 10021 -. 


INC 


R2 


{INCR RAM ADRS 




CMP 


Rl.tfENDCOD 


j SEE IF ALL CODE CHECKED YET 




BLO 


8$ 


iBR IF NOT 





16$: 



{SET UP VIA AND USYRT FOR OPERATION 

JSR R5.WRITEI {RESET THE USYRT 

VIAORB 

RTSND!DTR!PRESET 

JSR R5.WRITEI {CLEAR USYRT RESET BIT 

VIAORB 

RTSNDIDTR 



18$ 



JSR 


R5.WRITEI 


PCSARL 




226 




MOV 


OOOCMPJSTI 


SWAB 


18$ 


JSR 


R5, WRITE I 


PCSARH 




.WORD 





JSR 


R5.CKUSTS 


no 




BCC 


. >8> 


ERROR 




ESCAPE 


TST 


JSR 


R5.WRITEI 


TDSRH 




TSOM 




JSR 


R5.WRITEI 


TDSRL 




237 




JSR 


R5.CKTBMT 







BCC 


. »a- 


ERROR 





j SET SYNCH CHAR - 226 



iSET DQCMP, STRIP, IDLE, CRC16 



jGET DATA INTO LO BYTE 
{PROGRAM THE PCSARH 



}CHK USYRT STATUS FOR INITIALIZED STATE 

I TBMT-1, TSO-l 

;IF ERROR, PRINT REPORT 

TRAP 

TRAP 
.WORD 



CJERROR 

CIESCAPE 
L10021-. 



{SET TSOM IN USYRT 

{LOAD 237 CHAR FOR INTGRL MODEM SYNCHRONIZATION 

iCHK FOR TBMT - 

{IF ERROR, REPORT ERROR 



ESCAPE TST 



TRAP 

TRAP 
.WORD 



CSERROR 

CU-SCAPE 
L 10021 -» 



{INITIATE fc502 TEST OF INTEGRAL MODEM 

CLR SJSEL4 {CLEAR SEL4 

MOV 0RAMADR.BSEL4 i SE T STAmT ADRS OF RAM CODE IN SEL4 

MOVB 0EXECUT,&ttSEL2 , ISSUE M-LUOP CMND TO EXECUTE AT PC IN SEL4 

iWAIT SEVERAL MILLI-SEC FQR COMPIETION OF TEST 

MOV <>10QQ.,Rl iINIT WAIT LOOP COUNTER 

22$; DEC Rl iDECREMENT COUNTER 



M9 
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4514 
4515 
4516 

4517 
4518 
4519 
4520 
4521 



4522 



4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 



4535 



4536 

4537 
4538 
4539 
4540 



4541 



4542 
4543 
4544 
4545 
4546 



024130 
024132 
024134 
024142 
024144 
024150 

024156 

024156 
024160 
024162 
024164 
024166 
024166 
024170 

024172 
024176 
024200 
024204 
024212 
024216 

024222 
024230 

024232 

024232 
024234 
024236 
024240 
024242 
324242 
024244 

024246 
024254 

024256 

024256 
024260 
024262 
024264 
024266 
024266 
024270 

024272 

024300 

024302 

024 302 
024 304 



000240 
001375 

132777 
001013 
004737 
012737 



104455 
00004 7 
014307 
020120 

104410 
001244 

105777 
001002 
000137 
012737 
005037 
005037 

127727 
001006 



104455 
000050 

014777 
020714 

104410 
001170 

127727 
001006 



104455 
000051 
014777 
020714 

104410 
001144 

127727 
001006 



104455 
000052 



000200 

004166 
000005 



156260 
002324 



NOP 




BNE 


22* 


BITB 


4MRDY,5)8SEL2 


BNE 


24$ 


JSR 


PC.GETWSR 


MOV 


OEXECUT.GDATA 



i REPORT MROY TIMEOUT ERROR 
GEOF EM4.ERR4 



156234 

025434 
000007 
002324 
002326 



002336 



156204 000001 







ESCAPE 


TST 


24$: 




TSTB 


BBSEL6 






RNE 


26$ 






JMP 


90$ 


26$: 




MOV 


$7,REGNUM 






CLR 


GDATA 






CLR 


BDATA 


jCHK 


FOR ERROR 


1 






CMPB 


oesEL6.n 






BNE 


28$ 


l REPORT 


TBMT NOT SET 






GEDF 


GM73.ERR12 



156160 000002 



ESCAPE TST 



jCHK FOR ERROR 2 

28$: CMPB SBS£L6,02 

BNE 30$ 
j REPORT TBMT NOT SET 

GEDF EM73.ERR12 



156134 000003 



ESCAPE TST 



jCHK FOR ERROR 3 

30$: CMPB aBSF.l.6,03 

BNE 31$ 
{REPORT TBMT NOT SET 

GEDF EM73.ERR12 



,BR IF NOT DONE COUNTING YET 

l SEE IF M-LOOP FINISHED PROPERLY 

}BR IF YES 

{GET CSR'S FOR PRINTOUT 

{IDENTIFY REQUESTED FUNCTION 



"DEVICE FATAL" ERROR 



39 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
.WORD 



{SEE IF ANY ERRORS OCCURRED IN TEST 
}BR IF ERROR DETECTED 
{SUCCESSFUL COMPLETION OF TEST 
{SET REG NO. FOR PRINTOUT 
{CLEAR EXPECTED DATA AREA 
l CLEAR ACTUAL DATA AREA 

iCHK FOR ERROR 1 
jBR IF NOT 



jCHK f-OR ERROR 2 
:BR IF NOT 



t ChK i OR tRROR 3 
iBR IF NOT 



SEQ 0116 



C$ERDF 
39 
EM4 
ERR4 

CSESCAPE 
L10021-. 



"DEVICE FATAL" ERROR 40 




TRAP 


C$ERDF 


.WORD 


40 


.WORD 


EM 7 3 


.WORD 


ERR12 


TRAP 


CJESCAPE 


.WORD 


L10021-. 



"DEVICE FATAL" 


ERROR 41 






TRAP 


CIERDF 




.WORD 


41 




.WORD 


EM 7 3 




.WORD 


ERR 12 




TRAP 


C$EhCAPE 




>WORD 


L10021-. 



•DEVICE FATAL" ERROR 42 




TRAP 


i Sfc.HDK 


. WORD 


42 



N9 
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4547 



4548 
4549 
4550 
4551 
4552 
4553 



024306 
024310 

024312 
024312 
024314 

024316 
024324 

024326 
024334 



024334 
024356 
024340 
024342 

4554 024344 
024344 
024346 

4555 

4556 024350 

4557 024356 
4558 

4559 024360 



024360 
024362 
024364 
024366 
024370 
024370 
024372 



4560 



4561 
4562 
4563 
4564 
4565 



* 566 



456/ 
4568 
4569 
4570 
4571 



4572 



024374 
024402 

024404 

024404 
024406 
024410 
024412 
024414 
024414 
024416 

024420 
024426 

024430 

024430 

0244 32 
0244 34 
0244 36 
024440 
024440 



014777 
020714 

104410 
001120 

127727 

001011 

012737 



104455 
000053 
015161 
021146 

104410 
001066 

127727 
001006 



104455 
000054 
014777 
020714 

104410 
001042 

127727 
001006 



104455 
000055 
014777 
020714 

104410 
001016 

127 72 7 
001006 



104455 
000056 
0147/7 
020 714 

1C4410 



156110 
000001 



000004 
002336 



ESCAPE TST 



sCHK FOR ERROR 4 

31$: CMPB aeSEL6,44 

BNE 32$ 

{REPORT CARRIER NOT SET 

MOV #1,R£GNUM 
GEDF EM80.ERR14 



.WORD 
.WORD 

TRAP 
.WORD 



156056 000005 



ESCAPE TST 



jCHK FOR ERROR 5 

32$: CMPB QBSRL6,#5 

BNE 34$ 
{REPORT TBMT NOT SET 

GEDF EM73.ERR12 



iCHK FOR ERROR 5 
;BR IF NOT 



156032 000006 



ESCAPE TST 



iCHK FOR ERROR 6 

34$: CMPB 9BShL6,#6 

BNE 36$ 
{REPORT TBMT NOT SET 

GEDF EM73.ERR12 



;CH!< FOR ERROR 6 
{BR IF NOT 



156006 000007 



ESCAPE TST 



;CHK FOR ERROR 7 

36$: CMPB S6SF.1.6.47 

8Nfc 38$ 
iREPORt TBMT NOT St r 

GEDF EM73.ERR12 



jCHK FQR ERROR 7 
;BR IK NOT 



SEQ 0117 



EM73 
ERR12 

C$ESCAPE 
L10021-, 



jCHK FOR ERROR 4 
{BR IF NOT 




{SET REG NO. FOR PRINTOUT 




j "DEVICE FATAL" ERROR 43 

TRAP 
.WORD 
.WORD 
.WORD 


CiERDF 
43 

EM80 
ERR14 


TRAP 
.WORD 


C$ESCAPE 
L10021-, 



"DEVICE FATAL" 


ERROR it 44 






TRAP 


CSERDF 




.WORD 


44 




.WORD 


EM73 




.WORD 


ERR12 




TRAP 


CSESCAPL 




.WORD 


L10021-. 



"DEVICE FATAL" 


ERROR 45 






TRAP 


C$ERDF 




.WORD 


45 




.UORD 


EM73 




.WORD 


ERR12 




TRAP 


C$ESCAPt 




.WORD 


L10021-. 



ESCAPfc TST 



'OEVICE FATAL" 


ERROR 4b 






TRAP 


C$ERD»- 




.WORD 


4 b 




.UORD 


t M : < 




.UORD 


I RR12 




TRAR 


cjtacAPt 
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024442 


0007 72 






4573 








45.* 4 024444 


127727 


155762 


000010 


4575 024452 


001006 






4576 








4577 024454 








C24454 


104455 






024456 


00005 7 






024460 


014777 






024462 


020714 






4578 024464 








024464 


104410 






024466 


000746 






4579 








4530 0244 70 


12 7 72 7 


155736 


000011 


4561 024476 


001006 






4582 








4585 024500 








024500 


104455 






024502 


000060 






024504 


015035 






024506 


020714 






4584 024510 








024510 


104410 






024512 


000722 






4585 








4586 024514 


127727 


155712 


000012 


4587 024522 


001017 






4588 








4589 024524 


012737 


000000 


002336 


4590 024532 


112737 


OOOOOO 


002 324 


4591 024540 


117737 


X55670 


002326 


4592 024546 








024546 


104455 






024550 


00O061 






024552 


014502 






024554 


020364 






4593 024556 








024556 


104410 






024560 


000654 






4594 








4595 024562 


127727 


155644 


000013 


4596 024570 


001006 






4597 








4598 024572 








024572 


104455 






024574 


00OC62 






0245/6 


015035 






024600 


020714 






4599 024602 








024602 


104410 






024604 


000630 







iCHK FOR ERROR 8 

381} CMPB H8SEL6.08. 

BNE 401 

jREPORT TBMT NOT SET 

GEDF EM73.ERR12 



iCHK FOR ERROR 8 
I BR IF NOT 



ESCAPE TST 



jCHK FOR ERROR 9 

401 j CMPB B6SEL6.09. 

BNE 42$ 

, REPORT RDA NOT SET 

GEDF EM75.ERR12 



ESCAPE T5T 



iCHK FOR ERROR 10 

42li CMPB 8BSEL6.01O. 

BNE 44$ 

iREPORT HCV'O DATA MISCOHPARE 
MOV 00.REGNLJ1 

MOVB *OO0,G0ATA 

MOVB 88SEL7.BDATA 

GEDF EM34.ERR10 



ESCAPE TST 



,CHK FOR ERROR 11 

44$: CMPB HflSH6 ( «ll 

BNE 4M 

, REPORT RDA NOT St T 

GEDF EM75,e.RRl2 



4600 



ESCAPE TST 



iCHK FOR ERROR 12 



SEQ 0118 



.WORD L10021*. 



"DEVICE FATAL" 


ERROR 4 7 






TRAP 


CIERDF 




.WORD 


4 7 




.WORD 


EM73 




.WORD 


ERR12 




TRAP 


C IE SCAPE 




.WORD 


L 10021 -. 



jCHK FOR ERROR 9 






|BR IF NOT 






j "DEVICE FATAL" ERROR 


Q 46 






TRAP 


C*ERDF 




.WORD 


48 




.WORD 


EM/5 




.WORD 


ERR12 




TRAP 


C$ESCAPt 




.WORD 


L 10021 -. 


,CHK FOR ERROR 10 






,BR IF NOT 






ERROR 






jSET REG NO. FOR PRINTOUT 






iSET tXPK'ED DATA 






jSET ACTUAL DATA 






j "DEVICE FATAL" ERROR 


49 






TRAP 


CIEHDF 




.WORD 


49 




.WORD 


EM34 




.WORD 


ERR10 




TRAP 


C« SCAPt 




.WORD 


L 10021 . 



,CHK FOR ERROR 11 
jBR IF NOT 






1 "DEVICE FATAL" 


ERROR 50 

TRAP 
.WORD 

.WORD 
.WORD 


C$f RDf 
50 

tM'S 
ERR12 




TRAP 

.WORD 


CSf sCAP| 
L10021-* 



CIO 
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4601 024606 127727 155620 000014 46*: 

1 REPORT 



4602 0246** 


001017 






4603 








4604 024 


?737 


000000 


002336 


4605 024, 


>737 


0003.25 


002324 


4606 024f 


/737 


155576 


002326 


4607 024*. 








024640 


104455 






024642 


000063 






024644 


014502 






024646 


020364 






4608 024650 








024650 


104410 






024652 


000562 






4609 








4610 024654 


127727 


155552 


000015 


4611 024662 


0010O6 






4612 








4613 024664 








024664 


104455 






024666 


000064 






024670 


015035 






024672 


020714 






4614 0246 74 








024674 


104410 






024676 


O00536 






4615 








4616 024700 


127727 


155526 


000016 


4617 024 706 


001017 






4618 








4619 024710 


012737 


000000 


002336 


4620 024716 


112737 


000252 


002324 


4621 024724 


117737 


155504 


002326 


4622 024/3;' 








024 732 


104455 






024 734 


000065 






024 7 36 


014502 






024740 


020364 






4623 024742 








024 742 


104410 






024 744 


0O04 70 






4624 








4625 024 746 


12772/ 


155460 


OOQOW 


4626 024754 


001006 






4627 








4628 024 756 








024 /56 


104455 






024 760 


000066 






024 762 


015035 






024 764 


020714 






4629 024 766 








024 /66 


104410 






024 770 


000444 







CMPB 


QfiSEL6,*12. 


iCMK FOR ERROR 12 


BNE 


481 


iBR IF NOT 


RCVD 


DATA MISCOMPARE 


ERROR 


MOV 


40.REGNUM 


l SET REG NO, FOR PRINTOUT 


MOVB 


*125,GDATA 


iSET EXPECTED DATA 


MOVB 


08SEL 7.BDATA 


j SET ACTUAL OATA 


GEOF 


EM34,ERR10 





"DEVICE FATAL" ERROR 



ESCAPE TST 



tCHK FOR ERROR 13 

48*? CMPB seSEL6,0l3 

BNL 501 

j REPORT RDA NOT SET 

GEDF EM75,ERR12 



51 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
.WORD 



ESCAPE TST 



jCHK FOR ERROR 14 

50*; CMP6 aeSEL6,#14. 

BNE 52* 

{REPORT RCVD OATA MISCOHPARE 
MOV frO.REGNUM 

MOVB 0252, GDAT A 

MOVB aeSEL7,BDATA 

GEDF EM34.ERR10 



ESCAPE TST 



iCHK FOR ERROR 15 

52*: CMP8 b*»SFL6,*15 

ANF 54* 
iREPORT ROA NOT SET 

UEDF EM75.ERR12 



»CHK TOR fcRROR 15 
»BR IF NOT 



SEQ 0119 



C*ERDF 
51 

EM34 
ERR10 

C1ESCAPE 
L 10021 -. 



tCHK FOR ERROR 13 
jBR IF NOT 






1 "DEVICE FATAL" ERROR 


52 

TRAP 
.WORD 
.WORD 
.WORD 


C*ERDF 

52 

EM75 
ERR12 




TRAP 
.WORD 


C*ESCAPE 
L 10021 -. 


iCHK FOR ERROR 14 
j BR IF NOT 

ERROR 

iSET REG NO. FOR PRINTOUT 
{SET EXPECTED DATA 
{SET ACTUAL DATA 






j "DEVICE FATAL" ERROR 


53 

TRAP 

.WORD 
.WORD 

.WORD 


CIERDF 
53 

F.M34 
ERR10 




TRAP 
.WORD 


C*LSCAPE 
L10021-, 



ESCAPE TST 



"DEVICE FATAL" 


ERROR tf 54 






TRAP 


CMWDF 




.WORD 


54 




.WORD 


EM* 5 




. WORD 


ERRl.^ 




TRAP 


CSt SC API 




,WORD 


UOOwU-. 



D1.0 
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4630 
4651 
4632 
4633 
4634 
4635 
4636 
4637 



4638 



4639 
4640 
4641 
4642 
4643 



4644 



4645 
4646 
464 7 
4648 
4649 
4650 
4651 
4652 



4653 



4654 
4655 
4656 
4657 

4658 



4659 



024 7 72 
025000 

025002 
025010 
025016 
025024 

025024 
025026 
025030 
025032 
025034 
025034 
025036 

025040 
025046 

025050 

025050 
025052 
025054 
025056 
025060 
025060 
025062 

025064 
025072 

025074 
025102 
025110 
025116 

025116 
025120 
025122 
025124 
025126 
025126 
025130 

025132 
025140 

025142 

025142 
025144 
025146 
025150 
025152 
025152 



127727 
001017 

012737 
112737 
117737 



104455 
000067 
014502 
020364 

104410 

000376 

127727 
001006 



104455 
000070 
015035 
020714 

104410 
000352 

127727 
001017 

012737 
112737 
M7737 



104455 
000071 
014502 
020364 

104410 
000304 

12772? 
001006 



104455 
0000 72 
014551 
020 364 

104410 



155434 000020 



000000 
000377 
155412 



002336 
002324 

002326 



iCHi' FOR ERROR 16 
54$; CMP8 8BSEL6,016. 
BNE 56$ 

jREPORT RCVD DATA MISCOHPARE 
MOV *0,REGNUM 
MOVB 0377.GDATA 
HOVB 88SEL7.BDATA 
GEDF EM34.ERR10 



155366 000021 



ESCAPE TST 



jCHK FOR ERROR 17 

56 $t CMPB Oe5EL6 l *17 

BNE 58$ 
{REPORT RDA NOT SET 

GEDF EM75.ERR12 



iCMK FOR ERROR 17 
iBR IF NOT 



"DEVICE FATAL" ERROR 



ESCAPE TST 



)CHK FOR ERROR 18 



56 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
.WORD 



155342 000022 58$: 



000000 
000000 
155320 



002336 
002324 
002326 



CMPB SBSEL6,nB. 

BNE 60$ 

{REPORT RCVD DATA MISCOMPARE 

MOV *0,REGNUM 

MOVB *000,GDATA 

MOVB aeSEL7,BDATA 

GEDF EM34.ERR10 



155274 000023 



ESCAPE TST 



jCHK FOR ERROR 19 

60$: CMPB aeSEL6,019 

BNE 62$ 
{REPORT RERR NOT SET 

GEDF EM36.ERR10 



SEO 0120 



,CHK FOR ERROR 16 
{BR IF NOT 
ERROR 

{SET REG NO. FOR PRINTOUT 
{SET EXPECTED DATA 
{SET ACTUAL DATA 






j "DEVICE FATAL" ERROR 


55 

TRAP 
.WORD 

.WORD 
.WORD 


C$ERDF 
55 

EM34 
ERR10 




TRAP 
.WORD 


C$ESCAPE 
L10021-. 



C$ERDF 
56 

EM75 
ERR12 

C$ESCAPE 
L10021-. 



iCHK FOR ERROR 18 






,BR IF NOT 






ERROR 






{SET REG NO. FOR PRINTOUT 






{SET EXPECTED DATA 






{SET ACTUAL DATA 






{ "DEVICE FATAL" ERROR 


57 






TRAP 


C$ERDF 




.WORD 


57 




.WORD 


EM34 




.WORD 


ERR10 




TRAP 


C$ESCAPt 




.WORD 


L10021-. 



ESCAPE TST 



j Ct-tK FOR ERROR 19 
{BR IF NOT 






j "DEVICE FATAL" 


ERROR 58 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
58 

£MV, 
ERR 10 




TRAP 


cn; scape 
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025154 


000260 






4660 








4661 025156 


127727 


155250 


000024 


4662 025164 


001006 






4663 








4664 025166 








025166 


104455 






025.170 


000073 






025172 


015035 






025174 


020714 






4665 025176 








025176 


104410 






025200 


000234 






4666 








4667 025202 


127727 


155224 


000025 


4668 025210 


001017 






4669 








4670 025212 


012737 


000000 


002336 


4671 025220 


112737 


000160 


002324 


4672 025226 


117737 


155202 


002326 


4673 025234 








025234 


104455 






025236 


000074 






025240 


014502 






025242 


020364 






4674 025244 








025244 


104410 






025246 


000166 






4675 








4676 025250 


127727 


155156 


000026 


4677 025256 


001006 






4678 








4679 025260 








025260 


104455 






025262 


000075 






025264 


015035 






025266 


020714 






4680 025270 








025270 


104410 






025272 


0O0142 






4681 








4682 025274 


127727 


155132 


000027 


4683 025302 


001017 






4684 








4685 025304 


012737 


000000 


002336 


4686 025312 


112737 


000034 


002324 


4687 025320 


117737 


155110 


002326 


4688 025326 








025326 


104455 






025330 


000076 






025332 


014502 






025334 


020364 






4689 025336 









jCHK FOR ERROR 20 

62$: CMPB a6SEL6.*20, 

BNE 64 $ 
j REPORT RDA NOT SET 

GEDF EM75.ERR12 



»CHI< FOR ERROR 20 
} BR IF NOT 



"DEVICE FATAL" 



64$: 

j REPORT 



ESCAPE TST 




ERROR 21 




CMPB S6SEL6.021. 


iCHK FOR ERROR 21 


BNE 66$ 


» BR IF NOT 


RCV'D DATA MISCOMPARE 


ERROR 


MOV OO.REGNUM 


{SET REG NO. FOR PRINTOUT 


MOVB *160,GDATA 


{SET EXPECTED DATA 


MOVB aeSEL7,BDATA 


{SET ACTUAL DATA 


GEDF EM34 # ERR10 





"DEVICE FATAL" ERROR 



ESCAPE TST 



60 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
.WORD 



jCHK 
66$: 



FOR ERF<OR 22 

CMPB aBSEL.6,022 

BNE 68$ 

j REPORT ROA NOT SET 

GEDF EM75.ERR12 



iCHK FOR ERROR 22 
;BR IF NOT 



"DEVICE FATAL" ERROR 



68$: 

{REPORT 



ESCAPE 


TST 


: ERROR 


23 


CMPB 


aeSEL6,#23. 


BNE 


70$ 


RCV'D 1 


3ATA MISCOMPARE 


MOV 


OO.REGNUM 


MOVB 


*034,GDATA 


MOVB 


BBSEL7.BD/UA 


GEDF 


EM34.ERR10 



jCHK FOR ERROR 23 
{BR IF NOT 
ERROR 

{SET REG NO. FOR PRINTOUT 
{SET EXPECTED DATA 
,SET ACTUAL DATA 



\ 



ESCAPE TST 



"DEVICE FATAL" ERROR 62 

TRAP 
.WORD 
.WORD 
.WORD 



SEQ 0121 



.WORD L10021-. 



ERROR 59 




TRAP 


C$ERDF 


.WORD 


59 


.WORD 


EM75 


.WORD 


ERR12 


TRAP 


C$ESCAPE 


.WORD 


L10021-. 



C$ERDF 
60 
EM34 
ERR10 

C$ ESCAPE 
L10021-, 



61 




TRAP 


CSERDF 


.WORD 


61 


.WORD 


EM75 


.WORD 


ERR12 


TRAP 


0* ESCAPE 


.WORD 


L10021-. 



CSERDF 

EM34 
ERR10 



F10 
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025336 
025340 
4690 

4691 025342 

4692 025350 
4693 

4694 025352 



025352 
025354 
025356 
025360 
025362 
025362 
025364 



4695 



4696 
4697 
4698 
4699 
4 700 
4701 



025366 
025374 

025376 
025404 



025404 
025406 
025410 
025412 

4702 025414 
02M14 
025U6 

4703 025420 
4 704 

4705 025424 

025424 
025426 
025430 
025432 
4706 

4 70 7 025434 

4 708 025434 

025434 

025434 



104410 
000074 

127727 155064 000030 
001006 



104455 
000077 
015035 
020714 

104410 
000050 



127727 
001011 



iCHK FOR ERROR 24 

70*: CMPB 8BSEL6,#24. 

BNE 72$ 
{REPORT ROA NOT SET 

GEDF EM75.ERR12 



155040 000031 



012737 000001 002336 



104455 
000100 
015201 
021146 

104410 
000016 
004737 004166 



104455 
000101 
015225 
020072 



104401 



ESCAPE TST 



jCHK FOR ERROR 25 

72$: CMPB S8SEL6,<?25. 
BNE 74 1 

{REPORT CARRIER NOT CLEARED 
MOV *1,REGNUM 
GEDF EM81.ERR14 



TRAP 
, WORD 



jCHK FOR ERROR 25 
l BR IF NOT 

{SET REG NO. FOR PRINTOUT 



ESCAPE TST 



74$: JSR PC.GETWSR 

{REPORT INVALID ERROR CODE FROM 
GEDF EM82.ERR3 



90$; 
ENDTST 



SEQ 0122 



C$ESCAPE 
L10021-. 



,CHK FOR ERROR 24 
j BR IF NOT 




S "DEVICE FATAL" ERROR 63 

TRAP 

.WORD 

.WORD 

.WORD 


C$ERDF 
63 

EM75 
ERR12 


TRAP 
.WORD 


CIESCAPE 
L10021-. 



i "DEVICE FATAL" ERROR 


« 


64 
TRAP 
.WORD 
.WORD 
.WORD 


CiERDF 
64 

EM81 
ERR14 


{GET CSR'S FOR PRINTOUT 
6502 




TRAP 
.WORD 


C$ESCAPE 
L10021-. 


t "DEVICE FATAL" ERROR 





65 

TRAP 
.WORD 
.WORD 
.WORD 


CiERDF 
65 

EM82 
ERR3 


L10021: 







TRAP 



C$ETST 
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4 710 025436 
4711 
4712 
4713 
4714 
EM TEST 
4715 
4716 
471? 
4716 
4719 
4720 
4721 
4 722 
4 723 
4 724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
473? 
473? 
4734 
4 735 
4736 
4737 
4 738 
4 759 
4740 
4741 
4 742 
4743 
4 744 
4 745 
4746 
4747 
4748 
4749 
4 750 
4751 
4752 
4 753 
4 754 
4 755 
4 756 
4 75 7 
4 758 
4 759 
4 760 
4 761 
4 762 
4 763 
4 764 
4 7b5 
4 706 
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SEQ 0123 



MCODE : 
LINE* LOC CODE 



LINE 



0001 


0000 


0002 


0200 


0003 


0200 


0005 


0200 


0006 


0200 } 


0007 


0200 j 


0008 


0200 j 


0009 


0200 i 


0010 


0200 \ 


0011 


0200 i 


0012 


0200 i 


0013 


0200 i 


0014 


0200 t 


0015 


0200 } 


0016 


0200 j 


0017 


0200 j 


0018 


0200 i 


0019 


0200 j 


0020 


0200 


0021 


0200 


0022 


0200 


0023 


0200 


0024 


0200 


0025 


0200 


0026 


0200 


0027 


0200 


0028 


0200 


0029 


0200 


0030 


0200 


0031 


0200 


0032 


0200 


0033 


0200 


0034 


0200 


0035 


0200 


0036 


0200 


0037 


0200 


0038 


0200 


0039 


0200 


0040 


0200 


0041 


0200 


0042 


0200 


0043 


0200 


0044 


0200 


0045 


0200 


0046 


0200 


004 7 


0200 


0043 


0200 


0049 


0200 


0050 


0200 


0051 


0200 


0052 


0200 


0053 


0200 


;0054 


0200 



+-$0200 



j START OF MICROCODE FOR INTEGRAL MOD 



THIS IS THE 6502 MICROCODE WHICH IS LOADED INTO RAM ANO EXECUTED FOR THE 
PURPOSE OF TESTING THE INTEGRAL MODEM ON THE M8064 , AT 56K BAUD. AFTER THE 
LSI-11 PROGRAM DOES SOME INITIAL SETUP. IT TRANSFERS CONTROL TO THIS CODE 
IN RAM, ANO UAITS FOR COMPLETION OF THE TEST, AS INOICATED BY MRDY SET. 
THIS CODE TRANSMITS. RECEIVES, AND CHECKS THE FOLLOWING CHARACTERS : 
2 SYNCH CHARACTERS, 5 DATA CHARACTERS 000, 125. 252, 377, 000, 2 CRC-16 
CHARACTERS 160 ANO 034, ANO 2 TERMINATING SYNCHS. THE MESSAGE IS SENT USING 
CHARACTER (ODCMP) MODE, THE SYNCH CHARACTER USED IS 226, STRIP SYNCH AND 
IDLE MOOES ARE SET, AND THE DATA CLOCK IS PROVIDED BY THE INTEGRAL MODEM. 
ALL DATA ANO CRC CHARACTERS ARE CHECKED AS THEY ARE RECEIVED, AND THE CRC 
ERROR CHECK BIT IS CHECKED TO BE SET WITH RECEPTION OF THE LAST DATA 
CHARACTER COOO). 

{EQUATES FOR BIT DEFINITIONS 



BITO 

BIT1 

BTT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 

BITS 

BIT9 

BIT10 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 



'SI 
'32 

•04 

■aio 

■320 
■340 

■aioo 

■8200 
■3400 

•aiooo 

•32000 

■34000 

■310000 

'320000 

■340000 

•3100000 



5 ADDRESS EQUATES FOR CSR REGISTERS 



SELO 


•iio 


BSELO 


•SELO 


BSEL1 


-SEL0»1 


SEL2 


-SEL0*2 


BSEL2 


» SELO* 2 


BSEl 3 


-SEL0*3 


SEL4 


-SEL0»4 


BSEL4 


»SEL0»4 


BSEL 5 


*SEL0*5 


5EL6 


•SEL0»6 


HSR. 6 


•5EI 0*6 


BSEL/ 


'SELO » 7 
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TEST 2 

4?67 
4768 
4 769 
4770 
4771 
4 7 72 
4 7/3 
4774 
4775 
4776 
4777 
4778 
4 7 79 

4 780 
4781 

4782 

4 783 

4 784 

4785 

4786 

4787 

4788 

4 759 

4790 

4791 

4 79? 

4793 

4794 

4 795 

4 796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

481/ 

481^ 

48 19 

4820 

4821 

4 822 

4825 



INTEGRAL MODEM INTERFACE TEST 



SEQ 0124 



;0055 

{0056 

;0057 

{0053 

j 0059 

j 0060 

10061 

}0062 

; 0063 

j 0064 

j 0065 

{0066 

{0067 

{0068 

{0069 

{0070 

{0071 

{0072 

{0073 

{0074 

j 0075 

{0076 

{0077 

{0078 

{0079 

{0080 

jOOSl 

{0082 

{0083 

{0084 

{0065 

{0086 

{0087 

{0088 

{0089 

{0090 

{0091 

{0092 

{0093 

{0094 

{0095 

;0096 

{0097 

1 0098 

{0099 

1 01.00 

;0101 

{0102 

{0103 

{0104 

{0105 

j0106 

10107 

{0108 

;0109 

{0110 

lOUl 



0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

0200 

02QQ 



B 

B 

A 



{VERSATILE INTERFACE ADAPTER REGISTER EQUATES 

OREGB - $A000 {OUTPUT REGISTER 

OREGA - OREGB *1 {OUTPUT REGISTER A 

DDRB - 0REGB*2 {DATA DIRECTION REGISTER 

DORA - OREGB+3 {DATA DIRECTION REGISTER 

TILL - 0REGB*6 {TIMER 1 LATCH LOW BITS 

T1LH - 0REGB*7 {TIMER 1 LATCH HIGH BITS 

ACR - OREGB* IB {AUXILIARY CONTROL REGISTER 

PCR - OREGB OC {PERIPHERAL CONTROL REGISTER 



{VIA OUTPUT REGISTER B BIT EQUATES 



NULCLK 


• BIT7 


RXEN 


- BIT6 


TXEN 


- BIT5 


DTR 


• BIT4 


RTSND 


- BIT3 


HDX 


- BIT2 


TTLOOP 


- BIT1 


PRESET 


- BITO 



{VIA OUTPUT REGISTER A BIT EQUATES 



RING 


■ BIT7 


CARIER ■ 


• BIT6 


MDMRDY ■ 


• BIT5 


BORATE - 


■ BIT4 


CTS 


* BIT3 


TM 


■ BIT2 


RCVDA1 • 


■ BIT1 


UMAINT > 


• BITO 


.USYRT 


REGISTER ADDRESS EQUATES 


RXDB 


■ IA100 


RDSR 


■ RXDB*1 


TXDB 


• RXDB* 2 


TDSR 


■ RXDB* 3 


SAR 


■ RXDB ♦ 4 


PCSAR 


- RXDB*5 


PCTLR 


- RXDB* 7 


{USYRT 


TDSR REGISTER BIT EQUATES 


TEOM 


• BIT1 


TSOM 


■ BITO 


jUSYRT 


RDSR BIT EQUATES 


RERR 


» BIT7 
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TEST 2 ■ - INTEGRAL 
4824 



4826 
482? 
4828 
4829 

4830 
4831 
4832 
4833 
4834 
4835 
483b 
483 7 

4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
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SEQ 0125 



4651 

4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4060 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 

4870 
48 71 
48 72 
48 7 3 
48/4 
48/5 
4876 
48/7 
48 78 
48/9 
4880 



025436 
025440 
025442 

025444 

025446 
025451 
025453 
025456 
025460 
025461 

025463 

025465 

0254/0 
0254 72 
0254 75 
0254 / 7 
025502 



240 
204 
204 

242 
216 
242 
054 

160 
350 
320 

240 
114 

242 

216 
242 

054 
160 



000 
026 
027 

140 
000 
000 
000 
010 

370 

001 
220 

226 
002 
000 
000 
010 



240 



244 



003 



241 



244 



10112 
10113 
10114 
10115 
{0116 
{0117 
{0118 
)0119 
{0120 
{0121 
{0122 
{0123 
{0124 
{0125 
{0126 
{0127 
;0128 
{0129 
;0130 
{0131 



{0132 



{0133 

;0134 
{0135 



j0141 

{0142 
j0143 

{0144 

{0145 
{0146 

{0147 

{0148 

{0149 

{0150 

;0151 



0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 
0200 AO 00 

.BYTE 240,000 
0202 84 16 

.BYTE 204,026 
0204 84 17 

.BYTE 204,027 
0206 
0206 A2 60 

.BYTE 242,140 
{0136 0208 8E CO AO 

.BYTE 216,000.240 
{0137 0206 A2 00 

.BYTE 242,000 
{0138 0200 2C 00 A4 

.BYTE 054,000,244 
;0139 0210 70 08 

.BYTE 160,010 
{0140 0212 E8 

.BYTE 350 
0213 DO F8 

.BYTE 320,370 
0215 
0215 AO 01 

.BYTE 240.001 
021/ 4C 90 03 

.BYTE 114,220,003 
021A 
021A A2 96 

.BYTE 242,226 
021C 8E 02 Al 

■BYTE 216,002,241 
02 If A2 00 

.BYTE 242,000 
0221 2C 00 A4 

.BYTE 054,000,244 
0224 70 08 

.ByTE 160,010 
0226 E8 



jUSYRT STATUS REGISTER EQUATES 



USTATR 

RDA 

TBMT 

RXACT 

RSA 

TSO 

TXACT 

TXUERR 

SYNFLG 



IA400 

BIT7 
BIT6 
BIT5 

erT4 

BIT3 
BIT2 
BIT1 
BITO 



MISCELLANEOUS EQUATES 



SYNCH ■ 3226 

LDY 00 

STY BSEL6 

STY BSEL7 



{TURN ON THE USYRT, CLOCK 
LDX OTXEN!RXEN 

OREGB 

00 

USTATR 

♦ ♦10 



STX 
LDX 
BIT 
BVS 

INX 
BNE 



t 444 



ERROR 1 

LOY 01 



*-6 

444 



JMP 



A100 



{CLEAR BSEL6 
{CLEAR BSEL7 

{ASSERT TXEN,UXEN,RTS,OTR 

j AND RELEASE INT MODEM RESET 

jINIT TBMT TIME-OUT COUNTER 

{SEE IF TBMT SET 

{BR IF TBMT SET 

^INCREMENT TIME-OUT COUNTER 

jBR IF NO TIME-OUT 

{SET CODE FOR TBMT TIME-OUT ERROR 
{GO TAKE ERROR EXIT 



{LOAD FIRST SYNCH CHAR INTO TRANSMIT TF.R 

{LOAD FIRST SYNCH CHAR 



LDX 
STX 
LDX 
BIT 
BVS 
INX 



OSYNCH 

TXDB 

00 

USTATR 

*»10 



{TNIT TBMT TIMt- OUT COUNTER 
{SEE IF TBMT SET 
{BR IF TBMT SET 
{INCRtMtNT TIME -OUT COUNTER 



CNOMEAO DMVU LINE UNIT DIAG3 

TEST 2 - - INTEGRAL MODEM INTERFACE TEST 
035504 350 
025505 320 370 



J 10 

MACRO M1200 22-FEB-84 15;48 PAGE 67-3 



4881 
4882 
4883 
4884 
4885 
4886 
4887 
4388 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4 903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
49U 

4912 

4915 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4 922 
4923 
4924 
4925 
4926 
492/ 
4928 
4929 
4930 
4931 
49.^2 
4933 
4934 
4 935 
4936 
4937 



02550 7 
025511 

025514 
025516 
025521 
025523 
02552 > 
025530 
025531 

025533 

025535 

025540 

025543 

025545 
025547 

025552 
025554 
02555/ 
025562 
025564 
025567 
0255/1 
025572 



320 

240 
114 

242 
216 
242 

054 
160 
350 
320 

240 
114 

054 
160 

240 
114 

242 
216 

216 
242 
054 
160 
350 
320 



002 
220 

226 
002 
000 
000 
010 

370 

003 
220 

001 
005 

004 
220 

000 
003 
002 
000 
000 
010 

370 



003 



241 



244 



003 
240 



003 

241 
241 

244 



I *** ERROR 2 *** 
LDY #2 



.BYTE 350 

0152 0227 DO F8 BNE *-6 
.BYTE 320,370 

0153 0229 

0154 0229 AO 02 

.BYTE 240,002 

0155 022B 4C 90 03 JMP A100 

.BYTE 114,220,003 

0156 022E jLOAD SECOND SYNCH CHAR INTO TRANSMITTER 

0157 022E A2 96 LDX OSYNCH ;LOAD SECOND SYNCH CHAR 
.BYTE 242,226 

0158 0230 8E 02 Al 
.BYTE 216,002,241 



SEQ 0126 

j BR IF NO TIME-OUT 

j SET CODE FOR TBMT TIME-OUT ERROR 
{GO TAKE ERROR EXIT 



0159 0233 A2 00 

.BYTE 242,000 

0160 0235 2C 00 A4 

.BYTE 054,000,244 

0161 0238 70 08 

.BYTE 160,010 

0162 023A E8 

.BYTE 350 

0163 023B DO F8 

.BYTE 320,370 

0164 023D t *** 

0165 023D AO 03 

.BYTE 240,003 

0166 023F 4C 90 03 

.BYTE 114,220.003 

0167 0242 {CHECK FOR CARRIER SET 

0168 0242 2C 01 AO BIT OREGA 

.BYTE 054,001,240 

0169 0245 70 05 BVS *+7 

.BYTE 160,005 

0170 024/ j +** ERROR 4 **+ 

0171 0247 AO 04 LDY 04 

.BYTE 240,004 

0172 0249 4C 90 03 JMP A100 

.BYTE 114,220,003 
01/3 024C {LOAD TRANSMITTER WITH 000 CHAR 



LDX 


frSYNCH 


STX 


TXD6 


LDX 


60 


BIT 


USTATR 


BVS 


♦ ♦10 


INX 




BNE 


♦ -6 


ERROR 

LDY 


3 *** 
03 


JMP 


A100 



>INIT TBMT TIME-OUT COUNTER 

j SEE IF TBMT SET 

j8R IF TBMT SET 

j INCREMENT TIME-OUT COUNTER 

;BR IF NO TIME-OUT 

{SET CODE FOR TBMT TIME-OUT ERROR 
iGO TAKE ERROR EXIT 

jSEE IF CARRIER SET YET 
j BR IF CARRIER SET 

I SET CODE FOR CARRIER NOT SET ERROR 
jGO TAKE ERROR EXIT 



0174 024C A2 00 

.BYTE 242.000 

0175 024E 8E 03 Al 

.BYTE 216,003,241 

0176 0251 8E 02 Al 

.BYTE 216,002,241 

0177 0254 A2 00 

.BYTE 242.000 

0178 0256 2C 00 A4 

.BYTE 054,000,244 

0179 0259 70 08 

.BYTE 160,010 

0180 025B E8 

.BYTE 350 

0181 025C DO F8 

.BYTE 320,370 

0182 025E j 

0183 025E AO 05 



LDX 


6000 


SIX 


TDSR 


STX 


TXOB 


LDX 


60 


BIT 


USTATR 


BVS 


♦ ♦10 


INX 




BNE 


♦ -6 


LDY 


5 ♦♦* 
05 



{CLEAR TSOM 

jLOAD 000 CHAR 

jINIT TBMT TIME OUT COUNTER 

{SEE IF TBMT SET 

BR IF TBMT SET 

INCREMENT TIME-OUT COUNTER 

BR IF NO T IMF -OUT 

{SET CODE FUR TBMT TIME OUT ERROR 
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SEQ 0127 



4938 025574 


240 


005 


4959 






4940 025576 


114 


220 


4941 






4942 






4943 025601 


242 


125 


4944 






4945 025603 


216 


002 


4946 






494 7 025606 


242 


000 


4948 






4949 025610 


054 


000 


4950 






4951 025613 


160 


010 


4952 






4953 025615 


350 




4954 






4955 025616 


320 


370 


4956 






4957 






4958 025620 


240 


006 


4959 






4960 025622 


114 


220 


4961 






4%2 






4963 025625 


242 


252 


4964 






4965 025627 


216 


002 


4966 






4967 025632 


242 


000 


4968 






4969 025634 


054 


000 


4970 






4971 025637 


160 


010 


4972 






49/3 025641 


350 




4974 






4975 025642 


320 


370 


4976 






497 7 






4978 025644 


240 


007 


4979 






4980 025646 


114 


220 


4981 






4982 






4983 025651 


242 


37/ 


4984 






4985 025653 


216 


002 


4986 






4987 025656 


242 


000 


4988 






4989 025660 


054 


000 


4990 






4991 025663 


160 


010 


4992 






4993 025665 


350 




4994 







241 



244 



003 



241 



244 



003 



241 



244 



.BYTE 240.005 
1 0184 0260 4C 90 03 JMP 

.BYTE 114,220,003 

0185 0263 :LOAD TRANSMITTER WITH 

0186 0263 A2 55 LOX 

.BYTE 242,125 

0187 0265 8E 02 Al 

.BYTE 216.002,241 

0188 0268 A2 00 

.BYTE 242,000 

0189 026A 2C 00 A4 

.BYTE 054,000,244 

0190 026D 70 08 



STX 
LDX 

BIT 
BVS 
INX 
BNE 
ERROR 6 



A100 

TER \ 
GS125 

TXD8 

#0 

USTATR 

+ ♦10 



.BYTE 160,010 

0191 026F E8 

.BYTE 350 

0192 0270 DO F8 

.BYTE 320,370 

0193 02/2 j +*+ 

0194 C272 AO 06 LDY 

.BYTE 240.006 

0195 0274 4C 90 03 JMP 

.BYTE 114,220,003 

0196 0277 jLOAD TRANSMITTER WITH 

0197 0277 A2 AA LDX 

.BYTE 242,252 

0198 0279 8E 02 Al 

.BYTE 216,002,241 

0199 027C A2 00 

.BYTE 242,000 

0200 027E 2C 00 A4 

.BYTE 054,000,244 

0201 0281 70 08 



.BYTE 160,010 

0202 0283 E8 

.BYTE 350 

0203 0284 DO F8 

.BYTE 320,370 

0204 0286 | *+* 

0205 0286 AO 07 

.BYTE 240,007 

0206 0288 4C 90 03 

.BYTE 114,220,003 



STX 
LDX 
BIT 
BVS 

INX 
BNE 

ERROR 7 

LDY 

JMP 



+ -6 

** + 
06 

A100 

TER 1 
0S252 

TXDB 

00 

USTATR 

+ ♦10 



*-6 

* + * 
01 

A100 



0207 
0206 



jLOAD TRANSMITTER WITH 



028B 

028B A2 ^-'V LDX 08377 

.BYTE 242,37/ 

0209 028D 8E 02 Al STX TXDB 

.BYTE 216,002.241 

0210 0290 A2 00 LDX 00 

.BYTE 242,000 

0211 0292 2C 00 A4 BIT USTATR 

.BYTE 054,000,244 

0212 0295 70 08 BVS * »iO 

.BYTE 160,010 

0213 0297 E8 INX 

.BYTE 350 
10214 0298 DO F8 BNE +-6 



j GO TAKE ERROR EXIT 

125 CHAR 

jLOAD 125 CHAR 



iINIT TBMT TIME-OUT COUNTER 

j SEE IF TBMT SET 

j BR IF TBMT SET 

} INCREMENT TIME-OUT COUNTER 

; BR IF NO TIME-OUT 

j SET CODE FOR TBMT TIME-OUT ERROR 

;G0 TAKE ERROR EXIT 

252 CHAR 

jLOAD 252 CHAR 

iINIT TBMT TIME-OUT COUNTER 

jSEE IF TBMT SET 

{BR IF TBMT SET 

s INCREMENT TIME-OUT COUNTER 

j BR IF NO TIME OUT 

j SET CODE FOR TBMT TIME-OUT EKROR 

jGO TAKE ERROR EXIT 

37 7 CHAR AND END OF MESSAGE 
I LOAD 377 CHAR 

jINIT TBMT TIME OUT COUNTER 
j SEE IF TBM1 SET 
jBR IF TBMT SET 
{INCREMENT TIME OUT COUNTER 
I BR W NO TIME-OUI 
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4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5000 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

504 3 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 



025666 

025670 

025672 

025675 
025677 
025702 
025704 
025707 
025711 
025712 

025714 
035716 

025721 
025724 
025726 

025730 
025732 
025735 
025737 
025/42 
025744 
025745 

02574/ 
025751 
025754 
025756 



320 

240 
114 

242 

216 
242 
054 
060 
350 
320 

240 
114 

255 
311 
360 

240 
114 
242 
054 
060 
350 
320 

240 
114 
242 

216 



370 

010 
220 

000 
002 
000 
000 
010 

370 

Oil 
220 

000 
000 
005 

012 
220 
000 
000 
010 

370 

013 
220 

002 

003 



I +** ERROR 8 +++ 
LDY #8 



LDX 


#000 


STX 


TXDB 


LOX 


#0 


BIT 


USTATR 


BMI 


+ ♦10 


INX 




BNE 


*-6 


**+ ERROR 

LDY 


9 ** + 
#9 



.BYTE 320,370 
{0215 029A 
10216 029A AO 08 

.BYTE 240,010 
j02l 7 029C 4C 90 03 JMP A100 

003 .BYTE 114,220,003 

{0218 029F {LOAD TRANSMITTER WITH 000 

{0219 029F A2 00 

.BYTE 242,000 
50220 02A1 8E 02 Al 
241 .BYTE 216.002,241 

{0221 02A4 A2 00 

.BYTE 242,000 
{0222 02A6 2C 00 A4 
244 .BYTE 054,000.244 

j0223 02A9 30 08 

.BYTE 060,010 
{0224 02AB E8 

.BYTE 350 
{0225 02AC DO F8 

.BYTE 320,370 
{0226 02AE { 

{0227 02AE AO 09 

.BYTE 240,011 
{0228 02B0 4C 90 03 JMP A10O 

003 .BYTE 114,220,003 

;0229 02B3 {READ AND CHECK 000 CHAR 

{0230 02B3 AD 00 Al LDA RXDB 

241 .BYTE 255,000,241 

{0231 02B6 C9 00 CMP #6X)00 

.BYTE 311,000 
{0232 02B8 FO 05 BEQ **7 

.BYTE 360,005 
{0233 02BA { *** ERROR 10 *+* 

{0234 02BA AO OA 

.BYTE 240.012 
{0235 02BC 4C 90 03 
003 .BYTE 114,220,003 

{0236 02BF A2 00 

.BYTE 242,000 
{0237 02C1 2C 00 A4 
244 .BYTE 054,000,244 

{0238 02C4 30 08 

.BYTE 060,010 
{0239 02C6 E8 

.BYTE 350 
{0240 02C7 DO F8 

.BYTE 320.370 
{0241 02C9 
{0242 02C9 AO OB 

.BYTE 240.013 
{0243 02C0 4C 90 03 vJMP A100 

003 .BYTE 114,220,003 

{0244 02CE A2 02 I OX #TEOH 

.BYTE 242.002 
{0245 0200 8E 03 Al STX TDSR 

241 .BYTE 216,003,241 



LDY 


#10 


JMP 


AlOO 


LDX 


00 


BIT 


USTATR 


BMI 


±►10 


INX 




BNE 


♦ -6 



j *** ERROR 11 *** 
LDY #11 



SEQ 0128 

{SET CODE FOR TBMT TIME-OUT ERROR 

{GO TAKE ERROR EXIT 

CHAR 

;LOAD 000 CHAR 

{INIT RDA TIME-OUT COUNTER 

{SEE IF RDA SET 

jBR IF RDA SET 

{INCREMENT TIME-OUT COUNTER 

5 BR IF NO TIME-OUT 

{SET CODE FOR RDA TIME-OUT ERROR 
}G0 TAKE ERROR EXIT 

{READ RECEIVER BUFFER 
iCHK FOR 000 
jBR IF 000 

{SET CODE FOR DATA MISCOMPARE ERROR 

jGO TAKE ERROR EXIT 

{INIT RDA TIME-OUT COUNTER 

{SEE IF RDA SET 

{BR IF RDA SET 

{INCREMENT Tir-iG-OUT COUNTER 

tBR IF NO TIME-OUT 

{SET CODE FOR RDA TIME-OUT ERROR FOR 

j GO TAKE ERROR EXIT 

{SET TEOM TO TERMINATE MSG 



CNDMEAO OMV11 LINE 
TEST 2 -- INTEGRAL 
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MODEM INTERFACE TEST 



5052 








5053 








5054 025761 


255 


000 


241 


5055 








5056 025764 


311 


125 




5057 








5058 025766 


360 


005 




5059 








5060 








5061 025770 


240 


014 




5062 








5063 025772 


114 


220 


003 


5064 








5065 025775 


242 


000 




5066 








5067 025777 


054 


000 


244 


5068 








5069 026002 


060 


010 




5070 








5071 026004 


350 






5072 








5073 026005 


320 


370 




5074 








5075 








5076 026007 


240 


015 




507 7 








5078 026011 


114 


220 


003 


5079 








5080 








5081 026014 


255 


000 


241 


5082 








5083 026017 


311 


252 




5084 








5085 026021 


360 


005 




5086 








5087 








50C8 026023 


240 


016 




5089 








5090 026025 


114 


220 


003 


5091 








5092 026030 


242 


000 




5093 








5094 026032 


054 


000 


244 


5095 








5096 026035 


060 


010 




509/ 








5098 026037 


350 






5099 








5100 026040 


320 


370 




5101 








5102 








5103 026042 


240 


017 




5104 








5105 026044 


114 


220 


003 


5106 








510/ 








5108 026047 


255 


000 


241 



LDY 


#12 


JMP 


A100 


LDX 


#o 


BIT 


USTATR 


BMI 


*flO 


INX 




BNE 


+ -6 


*** ERROR 
LDY 


13 *** 
#13 



JMP 



A100 



5 0246 02D3 jREAD AND CHECK 125 CHAR 

j0247 02D3 AD 00 A! LDA RXDB 

.BYTE 255,000,241 
;0248 02D6 C9 55 CMP #S125 

.BYTE 311,125 
10249 02D8 FO 05 BEQ **7 

.BYTE 360,005 
{0250 02DA i *** ERROR 12 *** 

{0251 02DA AO OC 

.BYTE 240,014 
j0252 02DC 4C 90 03 

.BYTE 114,220,003 
;0253 02DF A2 00 

.BYTE 242,000 
{0254 02E1 2C 00 A4 

.BYTE 054,000,244 
{0255 02E4 30 08 

.BYTE 060,010 
;0256 02E6 E8 

.BYTE 350 
{0257 02E7 DO F8 

.BYTE 320,370 
{0258 02E9 { 

{0259 02E9 AO OD 

.BYTE 240,015 
$0260 02EB 4C 90 03 

.BYTE 114,220,003 
{0261 02EE {READ AND CHECK 252 CHAR 

{0262 02EE AD 00 Al LDA RXDB 

.BYTE 255,000,241 
{0263 02F1 C9 A A CMP #S1252 

.BYTE 311,252 
{0264 02F3 FO 05 BEQ *»7 

.BYTE 360,005 
{ 0265 02F5 j ♦♦* ERROR 14 +*+ 

}0266 02F5 AO OE 

.BYTE 240,016 
{0267 02F7 4C 90 03 

.BYTE 114,220,003 
{0268 02FA A2 00 

.BYTE 242,000 
j0269 02FC 2C 00 A4 

.BYTE 054,000,244 
{0270 02FF 30 06 

.BYTE 060,010 
{0271 0301 E8 

.BYTE 350 
{0272 0302 DO F8 

.BYTE 320,3 70 
j02 73 0304 
} 0274 0304 AO OF 

.BYTE 240,017 
{0275 0306 4C 90 03 



LDY 


#14 


JMP 


A100 


LDX 


#0 


BIT 


USTATR 


BMI 


*ao 


INX 




BNE 


*-6 



j +*+ ERROR 15 *** 
LDY #15 



JMP 



A100 



.BYTE 114,220,003 
j0276 0309 jREAD AND CHECK 37/ CHAR 

{0277 0309 AD 00 Al LDA RXDB 

,BYTE 255,000,241 



SEQ 0129 

{READ RECEIVER BUFFER 
jCHK FOR 125 
jBR IF 125 

j SET CODE FOR DATA MISCOMPARE ERROR 

{GO TAKE ERROR EXIT 

iINIT RDA TIME-OUT COUNTER 

{SEE IF RDA SET 

;BR IF RDA SET 

{INCREMENT TIME-OUT COUNTER 

;BR IF NO TIME-OUT 

{SET CODE FOR ROA TIME-OUT ERROR 
{GO TAKE ERROR EXIT 

READ RECEIVER BUFFER 
CHK FOR 252 
BR IF 252 

SET CODE FOR DATA MISCOMPARE ERROR 

GO TAKE ERROR EXIT 

INIT RDA TIME-OUT COUNTER 
j SEE IF RDA SET 
{BR IF RDA SET 
{INCREMENT TIME-OUT COUNTER 
{BR IF NO TIME-OUT 

{SET CODE FOR RDA TIME-OUT ERROR FOR 
j GO TAKE ERROR EXIT 

{READ RECEIVER BUFFER 



CNDMEAO 0MV11 LINE UNIT DIAG3 

INTEGRAL MODEM INTERFACE TEST 



NIO 

MACRO M120G 22 -FEB -84 15j48 PAGE 67-'/ 



TEST 2 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

51^1 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 



026052 
026054 

026056 
026060 
026063 
026065 
026070 
026072 
026073 

026075 
026077 

026102 
026105 
026107 

026111 
026113 

026116 
026121 

026123 
026125 
026130 
026132 
026135 
O2ol37 
026140 



311 
360 

240 
114 
242 
054 
060 
350 
320 

240 
114 

255 
311 

360 

240 
114 
256 
060 

240 
114 
242 
054 
060 
350 
320 



377 
005 

020 
220 
000 
000 
010 

370 

021 
220 

000 
000 
005 

022 
220 
001 
005 

023 
220 

000 
000 
010 

3/0 



003 



244 



003 
241 



003 
241 



003 



244 



CMP 


48377 


BEQ 


* + 7 


{ +++ ERROR 
LDY 


16 +*+ 
416 


JMP 


A100 


3 

LDX 


40 


BIT 

A 


U5TATR 


4 

BMI 


♦ ♦10 


INX 




BNE 


+ -6 


i +++ ERROR 
LDY 


17 +** 
417 



JMP 



A 100 



{0278 030C C9 FF 

.BYTE 311,377 
{0279 030E FO 05 

.BYTE 360,005 
j 0280 0310 
{0281 0310 AO 10 

.BYTE 240,020 
;0282 0312 4C 90 03 

.BYTE 114,220,003 
j0283 0315 A2 00 

.BYTE 242,000 
5 0284 0317 2C 00 A4 

.BYTE 054,000,244 
j 0285 031 A 30 08 

.BYTE 060,010 
;0286 031C E8 

.BYTE 350 
{0287 031D DO F8 

.BYTE 320,370 
{0288 031F 
$0289 031F AO 11 

.BYTE 240,021 
{0290 0321 4C 90 03 

.BYTE 114,220,003 
{0291 0324 {READ AND CHECK 000 CHAR 

{0292 0324 AD 00 Al IDA RXDB 

.BYTE 255,000,241 
{0293 0327 C9 00 CMP 45)000 

.BYTE 311,000 
{0294 0329 FO 05 BEQ **7 

.BYTE 360,005 
{0295 032B j +** ERROR 18 *** 

j0296 032B AO 12 LDY 418 

.BY ■■■■;■: 240,02? 
{0297 032D 4C 90 03 JMP A100 

.BYiE 114,220,003 
{0298 0330 AE 01 Al LDX RD5R 

.BYTE 256,001,241 
{ 0299 0333 30 05 BMI *»7 

.BYTE 060,005 
»0300 0335 { +*+ ERROR 19 ♦ ** 

{0301 0335 AO 13 

.BYTE 240.023 
{0302 0337 4C 90 03 

.BYTE 114,220,003 
j 0303 033A A2 00 

.BYTE 242,000 
;0304 033C 2C 00 A4 

.BYTE 054,000.244 
{0305 033F 30 08 

.BYTE 060,010 
{0306 0341 E8 

.BYTE 350 
{0307 034,? DO ^8 

.BY IE 320,370 
;0!08 0344 j ♦' ♦ F RROR 20 •*♦ 

;0309 0344 AO 14 LDY 020 



LDY 


419 


JMP 


AlOO 


LDX 


40 


BIT 


USTATR 


BMI 


*»io 


INX 




ONE 


* 6 



SEQ 0130 

jCHK FOR 377 
{BR IF 377 

{SET CODE FOR DATA MISCOMPARE ERROR 

{GO TAKE ERROR EXIT 

ilNIT RDA TIME-OUT COUNTER 

{SEE IF RDA SET 

jBR IF RDA SET 

{INCREMENT TIME-OUT COUNTER 

j BR IF NO TIME-OUT 

{SET CODE FOR RDA TIME-OUT ERROR 
{GO TAKE ERROR EXIT 

{READ RECEIVER BUFFER 
sCHK TOR 000 
{BR IF 000 

{SET CODE FOR DATA MISCOMPARE ERROR 

{GO TAKE ERROR EXIT 

{CHECK FOR RERR BIT SET 

jBR IF RERR BIT SET (NO CRC ERROR) 

{GO TAKE ERROR EXIT 

ilNIT RDA TIME-OUT COUNTER 

{SEE IK RDA SET 

5 BR IK RDA SE T 

{INCREMENT TIME-OUT COUNTER 

{BR IF NO TIME-OUT 

{SET CODE FGU ROA TIME-OUT ERROR 



CNOMfcAO DMVll I INE 
TEST 2 - INTEGRAL 



5166 

5lb7 
5168 
5169 

51/0 

5171 

5172 

5173 

5174 

5175 

517 b 

517 7 

5178 

5179 

5180 

5181 

5182 

5185 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5^0/ 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

522 1 

we'd 



026142 
026144 

02614 7 
026152 
026154 

026156 
026160 
026163 
026165 
026170 
026172 
026173 

026175 

026177 

026202 
026205 

02620 7 

026211 
0?6213 
026216 
026220 
026223 
026225 
026226 

026210 
026232 



AND CHECK FIRST CPC CHAR 

IDA RXDB 



B 1 1 

UNIT DIAG3 MACRO M1200 22-FEB-84 15 S 48 PAGE 67-8 
MODEM INTERFACE TEST 

240 024 .BYTE 240,024 

10310 0346 4C 90 03 JMP A100 
114 220 003 .BYTE li4,220,OO3 

10311 0349 jREAD 

10312 0349 AD 00 Al 
255 000 241 .BYTE 255,000,241 

jOM3 034C C9 70 

311 160 .BYTE 311,160 

10314 034E TO 05 
360 005 .BYTE 360,005 

10315 0350 | ♦♦* 
j0316 0350 AC 15 

240 025 .BYTE 240,025 

;0317 0352 4C 90 03 

114 220 003 .BYTE 114,220,003 

j0318 0355 A2 00 

242 000 .BYTE 242.000 

,0319 0357 2C 00 A4 

054 000 244 .BYTE 054,000,244 

1 0320 035A 30 08 
060 010 .BYTE 060,010 

10321 035C E8 
350 .BYTE 350 

,0322 0350 DO F8 

320 370 .BYTE 320,370 

|0323 035F , ♦♦* 

10324 035F AO 16 
240 026 .BYTE 240,026 

10325 0361 4C 90 03 JMP A100 
114 220 003 .BYTE 114,220,003 

10326 0364 jREAD 

10327 0364 AD 00 Al 
255 000 241 .BYTE 255,000.241 

j0328 036/ C9 1C 
311 034 .BYTE 311,034 

10329 0369 FO 05 
360 005 .BYTE 360,005 

10330 036B | ♦♦♦ 

10331 036B AO 1/ 
240 027 .BYTE 240,027 

10332 036D 4C 90 03 
114 220 003 .BYTE 114,220,003 

|0333 0370 A2 00 
242 000 .BYTE 242.000 

10534 0372 2C 00 A4 
054 000 244 .BYTE 054,000,244 

|0335 03/5 30 08 
060 010 .BYTF 060,010 

10356 037/ E8 
350 .BYTE 350 

|0337 0378 DO F8 
520 3 70 .BrTE 320,3 70 

10338 03/A | ♦♦* 

j0339 03/A AO 18 
240 30 .BYTE 240.030 

t0340 03 /C 4C 90 03 JMP A100 

114 220 005 ,BYTE 114,220,003 



CMP 


08160 


BFQ 


• •7 


ERROR 
L.DY 


21 ♦♦♦ 

021 


JMP 


A100 


LDX 


00 


BIT 


U5TATR 


BMI 


*»10 


INX 




BNE 


• 6 


ERROR 
1.0t 


e? ♦ ** 

022 



ANO CHECK 2N0 CRC CHAR ( 
IDA RXDB 



CMP 


0W034 


BEU 


*. / 


ERROR 
l.Dt 


2 3 « ♦ * 

02 3 


JMP 


A100 


IDX 


00 


BIT 


USTATR 


BMI 


4-10 


INX 




BNE 


* 6 


f WHOM 

1 DY 


24 * * ♦ 
024 



SEQ 0131 

GO TAKE ERROR EXIT 

(160) 

READ RECEIVER BUFFER 

CHK FOR 160 

BR IF 160 

SET CODE FOR DATA MISCOMPARE ERROR 

GO TAKE ERROR EXIT 

INIT RDA TIME-OUT COUNTER 

SEE IF RDA SET 

BR IF RDA SET 

INCREMENT TIME -OUT COUNTER 

BR U NO TIME -OUT 

SET COOP. FOR ROA TIME -OUT ERROR 

GO TAKE ERROR EXIT 

034 ) 
READ RECEIVER BUFFER 

CHK f OR 034 

BR IF 034 

SET COOE FOR DATA MISCOMPARE ERROR 

GO TAKE ERROR EXIT 

INIT ROA T IMF OUT COUNTER 

SEE V RDA SET 

kJR V RDA SF T 

INCREMENT TIHf -OUT COUNTER 

BR IF NO TIME OUT 

SET CODE 'OR HOA T I ME -OUT ERROR 
WJ TAKE ERROR EXIT 



CNOMt- AC 


OMVU l.INt 


UN 11 


D1AG3 


TEST 2 


- INTEGRAL 


MODEM 


INTERI 


5.?*? 3 








5224 








5225 


026235 


242 


150 


5226 








522 7 


02623 7 


216 


000 


5228 








5229 


026242 


242 


000 


5230 








5251 


026244 


054 


001 


5232 








5233 


02624 7 


120 


005 


5234 








5235 


026251 


350 




5236 








5237 


026252 


320 


370 


5233 








5239 








5240 


026254 


240 


031 


5241 








5242 








5243 


026256 


204 


026 


5244 








5245 


026260 


20S 


027 


5246 








524 7 


026262 


140 




5243 








5249 








5250 








5251 








5252 








5253 








5254 


026263 






5255 









MACRO M1200 



C 1. 1. 

22-FEB-Q4 15:48 PAGE 67-9 



SEQ 0132 



j0341 037F 

j 0342 037F A2 68 

.BYTE 242,150 
|0343 0381 8E 00 AO 
240 .BYTE 216,000,240 

j0344 0384 A2 00 

.BYTE 242,000 
j0345 0386 2C 01 AO 
240 .BYTE 054,001,240 

1 0346 0389 50 05 

.BYTE 120,005 
,034/ 038B E8 

.BYTE 350 
,0348 038C DO F8 

.BYTE 320,370 
,0349 038E 
,0350 038E AO 19 

.BYTE 240,031 
,0351 0390 
,0352 0390 64 16 

.BYTE 204,026 
,0353 0392 85 W 

.BYTE 205,027 
,0354 0394 60 

.BYTE 140 
,0355 0395 
, 0356 0395 
i 

, ERRORS - 0000 

ENDCOO; 
.EVEN 



,DROP RT5, CHECK FOR CARRIER Tu DROP 

LOX 0TXEN!RXEN!RT5ND ,DE-A55ERT RT5 



STX 


OREGB 


LDX 


40 


BIT 


OREGA 


BVC 


♦ ♦7 


INX 




BNF 


*-6 



, *«* ERROR 25 ♦♦♦ 
l.DY *25 

,COME HERE FOR EXIT 
A100 ^Ji B5F.L6 

ST A BSt 17 

RT5 



iINIT CARRIER DROP TIME-OUT COUNTER 
I SEE IE CARRIER CLEARED 
,BR IF CARRIER CLEARED 
{INCREMENT TIME-OUT COUNTER 
,BR IF NO TIME OUT 

(SET CODE FOR CARRIER DROP TIME-OUT 

|PUT ERROR NO. (IF ANY) INTO BSEL6 
,PUT BAD DATA (IF ANY) INTO BSEl 7 
{RETURN CONTROL TO L5I-11 PROGRAM 



CNOMtAO DMV11 I 
TEST 3 - DATA 
5273 



INE UNIT 01 ACS 
TEST -- BCP XLB 



MACRO M1200 
CRC -16 



22 FEB-84 15j48 



Dll 

PAGE 68 



SEQ 0133 



SBTTL TE5T 3 - - DATA TEST - ■• BCP XLB CRC 16 
TEST 3 -- DATA TEST -- BCP XLB CRC- 16 



IF XLB IS 
RECEIVE IN 
MESSAGE; 



SPECIFIED IN THE P-TABLE, THIS TEST WILL TRANSMIT £ 
BCP MODE WITH CflC-16 ERROR DETECTION THE FOLLOWING 



125 252 000 377 001 002 004 010 020 040 100 200 376 375 373 367 
357 337 277 177 

THIS MESSAGE WILL BE PRECEDED BY 3 SYNC CHARACTERS ANO REPEATED 
THREE TIMES WITH CRC ' S FOLLOWING EACH ONE. THE LAST TRANSMISSION OF 
THE CRC WILL BE FOLLOWED BY SEVERAL SYNC CHARACTERS BEFORE DROPPING 
TXE 6 WXE. 3-BIT CHARACTER LENGTHS ARE ALSO UTILIZED. 

IF XLB WAS NOT SPECIFIED (AND/OR BOARD TYPE IS M8064), THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK CTTLOOP«1). 

- -f. 4t* ******* ******* * **** ****************************************** ****** ***** 

BGNTST 





026264 












T3: : 






5274 


026264 


012737 


000003 


002526 


MOV 


*3,REG0 


jINIT COUNT (TEXT TRANSMITTED 


3 TIMES) 




5275 


026272 


004737 


005376 




JSR 


PC.INIDMV 


jINIT DMV-11, ENTER MAINT LOOP 






5276 


026276 


042737 


001000 


026554 


BIC 


*N0L0OP,l» 


i 






5277 


026304 


012737 


000011 


027126 


MOV 


09., 31 


l*INIT ENTRAN COUNT/TTLOOP STATUS 




52 78 


026312 


023727 


0024 70 


000000 


CMP 


BRDTYP.00 


j IS THIS AN M8064? 






5279 


026320 


O01412 






BEQ 


2$ 


1 YES: USE TTLOOP (NOT XLB). 






5280 


026322 


023727 


002472 


000004 


CHP 


TSTC0N,*4 


lis A LOOPBACK CONNECTOR/CABLE 


SPECIFIED ? 


5281 


026350 


C01406 






BEQ 


2$ 


j BR IF NO 






5282 


026332 


052737 


001000 


026354 


BIS 


ONOLOOP.ll 


l YES: SPECIFY NO TTLOOP (INITRN) 




5283 


026340 


052737 


100000 


027126 


BIS 


0BIT15,3$ 


i ANO SET MSB OF ENTRAN STATUS (NOLOOP) 


5284 




















5265 


026346 


004537 


007234 


2$: 


JSR 


R5.INITRN 


lLOAD 1 SOM, CLK rx UNTIL ACTIVE 




5286 


026352 


065626 






DDChP'STRTPS! IDLES. 


CRC16JSYNCH jSET ODCMP, STRIP, IDLE, 


CRC -16. 


SYNCH*226 


5287 


026354 


000000 




1*: 







jUSE 8 BIT CHARS 






5286 


026356 


103003 






BCC 


,♦8. 


iBR IF NO ERROR 






5289 


026360 
026360 


104460 






ERROR 




jREPORT STACKED ERROR 


TRAP 


C* ERROR 


5290 


026362 
026562 
026364 


104410 
000554 






ESCAPE 


1ST 


j SKIP TO END OF TEST 


TRAP 
,WORD 


CIESCAPt 
L 10022 -. 


5291 




















5292 


026366 


00453 7 


010136 




JSR 


R5.TXCHAR 


lLOAD 2ND SYNCH, TX 1ST SYNCH 






5293 


026372 


000226 






SYNCH 










5294 


026374 


OCOOO 7 






7. 










5295 


0263 76 


103003 






BCC 


. »8, 


iBR H" NO ERROR 






5296 


026400 
026400 


104460 






FRROR 




jREPORT STACKED ERROR 


TRAP 


C $ERRO« 


5297 


026402 

026402 


104410 






ESCAPE 


Tsr 


1 SKIP TO END OF TEST 


TRAP 


en sow 


5298 
5299 


026404 


000534 












.WORD 


l 10022 . 


026406 


00453/ 


01013b 




JSR 


R5.TXCHAR 


lLOAD 3RD SYNCH, TX ^NU SYNCH 







CNDMEAO DMVll LINE UNIT D1AG3 MACRO M1200 
TEST 3 - DATA TEST -- BCP XLB CRC-16 



Ell 

22-FEB-84 15;48 PAGE 68-1 



SEQ 0134 



5300 


026412 


000226 


5301 


026414 


000010 


5302 


026416 


103003 


5303 


026420 






026420 


104460 


5304 


026422 






026422 


104410 




026424 


000514 


5305 






5306 


026426 


004537 


5307 


026432 


000000 


5308 


026434 


000000 


5309 






5310 


026436 


004537 


5311 


026442 


000125 


5312 


026444 


000010 


5313 


026446 


103003 


5314 


026450 






026450 


104460 


5315 


026452 






026452 


104410 




026454 


000464 


5316 






5317 


026456 


004537 


5318 


026462 


000252 


5319 


026464 


000010 


5320 


026466 


103003 


5321 


0264 70 






026470 


104460 


5322 


0264 72 






0264 72 


104410 




026474 


000444 


5323 






5324 


0264 76 


004537 


5325 


026502 


000000 


5326 


026504 


000010 


5327 


026506 


103003 


5328 


026510 






026510 


104460 


5329 


026512 






026512 


104410 




026514 


000424 


5530 






5331 


026516 


004537 


5332 


026522 


00037 7 


5333 


026524 


000010 


5334 


026526 


103003 


5335 


026530 






026530 


104460 


5336 


026532 






026532 


104410 




026534 


000404 


5337 






5338 


026536 


004537 


5359 


026542 


000001 


5340 


026544 


000000 


5341 


026546 


103003 



010250 



010136 



010136 



010136 



010136 



010136 



SYNCH 
8. 

BCC 

ERROR 


.*e. 


ESCAPE 


TST 


JSR 
000 



R5.TXCTRL 


JSR 

125 

8. 

BCC 

ERROR 


R5.TXCHAU 
.♦8. 


ESCAPE 


TST 


JSR 

252 

8. 

BCC 

ERROR 


R5.TXCHAR 
♦ ♦8, 


ESCAPE 


TST 


J5R 

000 

8. 

BCC 

ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 

377 

8. 

BCC 

ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 

001 



BCC 


R5.TXCHAR 
»*8. 



j BR IF NO ERROR 
{REPORT STACKED ERROR 

j SKIP TO END OF TEST 



j CLEAR TSOM 



jLOAD 125CDATA1), TX 3RD SYNCH 



{BR IF NO ERROR 
;REPORT STACKED ERROR 

j SKIP TO ENO OF TEST 



jLOAD 252CDATA2). TX 125(DATAl) 



j BR IF NO ERROR 
{REPORT STACKED ERROR 

j SKIP TO ENO OF TEST 



{LOAD O00CDATA3), TX 252CDATA2) 



{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{LOAD 377CDATA4), TX 0OOCDATA3) 



iBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{LOAD 00KDATA5) 



j BR IF NO ERROR 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



CJERROR 

CiESCAPE 
L10022-. 



CJERROR 

CiESCAPE 
L 10022 -. 



C$ERROR 

CiESCAPE 

L 10022 -. 



C*ERRCR 

C ESCAPE 
L 10022 -. 



C TERROR 

C$1- SCAPE 
U002J-. 



Fin 

CNDMEAO DMVU LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15:48 PAGE 68-2 
TEST 3 •-- DATA TEST -- BCP XLB CRC-16 



5342 

5343 



5344 
5345 
5346 
5347 
5348 

5349 



5350 
5351 
5352 
5353 
5354 
5355 
5356 

5357 



5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 

5370 



5371 
5372 
5373 
5374 
5375 
5376 
5377 

5378 



5379 
5380 
5381 
5382 
5383 



026550 
026550 
026552 
026552 
026554 

026556 
026562 
026564 
026566 
026566 
026570 
026570 
026572 

026574 
026600 
026602 
026604 
026606 
026610 
026610 
026612 
026612 
026614 



026616 
026622 
026626 

026634 
026640 
026642 
026644 
026646 
026646 
026650 
026650 
026652 

026654 
026660 
026662 
026664 
026666 
026670 
026670 
026672 
026672 
026674 

026676 
026 702 



104460 

104410 
000364 

004537 011624 

000000 

103003 

104460 

104410 
000346 

004537 010350 

000125 

000000 

000010 

103003 











SEQ 0135 


ERROR 




{REPORT STACKED ERROR 


TRAP 


C5ERR0R 


ESCAPE 


TST 


j SKIP TO END OF TEST 


TRAP 
.WORD 


C$ESCAPE 
L10022-. 


JSR 


ecc 


R5.RCV1ST 


j CLOCK AND RCV 125 






. »6, 


;BR IF NO ERROR 






ERROR 




{REPORT STACKED ERROR 


TRAP 


C $ ERROR 


ESCAPE 


TST 


iSKIP TO END OF TEST 


TRAP 
.WORD 


CSFSCAPF. 
L 10022 -, 



104460 

104410 
000324 



012702 002646 
112237 026660 
116237 000003 026640 

004537 010136 
000000 
000000 
103003 



104460 

104410 
000266 

004537 
OOOOOO 
000000 
OOOOIO 
103003 

104460 

104410 
000244 

022702 

00134 7 



JSR 


R5.RXCHAR 


{READ £ CHK 125CDATA1), 


RCV 252CDATA2) 




125 



8. 










BCC 


.♦8. 


j BR IF NO ERROR 






ERROR 




{REPORT STACKED ERROR 


TRAP 


C TERROR 


ESCAPE 


TST 


{SKIP TO END OF TEST 


TRAP 
.WORD 


C$ESCAPE 
L 10022 -. 



j TRANSMIT THE 3ULK OF DATA OUT OF TABLE "PATX 
j 

5$: 



10$ 



MOV 

MOVB 

MOVB 

JSR 

000 



BCC 

ERROR 



#PATX*1,R2 

(R2)*,205 
3(RP),10$ 

R5.TXCHAR 



. *8. 



ESCAPE TST 



{SET UP TABLE POINTER 

{SET UP EXPECTED CHARACTER 

{SET UP TRANSMIT CHARACTER 

{LOAD A CHARACTER 

{*♦ HOLE FOR NEXT TX CHARACTER 

{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 

.WORD 



C TERROR 

CSESCAPE 
L 10022 -, 



010350 



20$ 5 



JSR 


R5.RXCHAR 


000 









8. 




BCC 


.♦8. 


ERROR 





;CLK/RECEIVE/CHECK PREVIOUS CHARACTER 
j** HOLE FOR EXPECTED CHARACTER 



026704 004537 



002665 

010250 



ESCAPE TST 



CMP *PATX»16.,R2 
BNE 5$ 

JSR R5 t TXCtHL 



{BR IF NO ERROR 

{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CJERROR 

CSESCAPE 
L 10022 -, 



{CHECK FOR 20TH CHARACTER OF TABLE 
{BR IF NOT DONE 

iLOAD 1ST TEOM 
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5384 


026710 


000002 


5385 


026712 


000000 


5386 


026714 


004537 010350 


5387 


026720 


000357 


5388 


026722 


000000 


5389 


026724 


000010 


5390 


026726 


103003 


5391 


026 730 






026730 


104460 


5392 


026732 






026732 


104410 




026734 


000204 


5393 






5394 


026736 


004537 010250 


5395 


026742 


000002 


5396 


026744 


000000 


5397 


026746 


004537 010350 


5398 


026752 


000337 


5399 


026754 


000000 


5400 


026756 


000010 


5401 


026760 


103003 


5402 


026762 






026762 


104460 


5403 


026764 






026764 


104410 




026766 


000152 


5404 






5405 


026770 


004537 010350 


5406 


026774 


000277 


5407 


0267 76 


000000 


5408 


027000 


000010 


5409 


027002 


103003 


5410 


02 7004 






027004 


104460 


5411 


02 7006 






027006 


104410 




027010 


000130 


5412 






5413 


027012 


004537 010350 


5414 


027016 


100177 


5415 


02 7020 


000001 


5416 


027022 


000010 


5417 


02 7024 


103003 


5418 


027026 






027026 


104460 


5419 


027030 






027030 


104410 




027032 


000106 


5420 






5421 


027034 


004537 010350 


54 22 


027040 


000156 


5423 


027042 


000000 


5424 


027044 


000010 


5425 


027046 


103003 


5426 


027050 






027050 


104460 


5427 


027052 







Gil 
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TEOM 









JSR 


R5.RXCHAR 


357 









8. 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCTRL 


TEOM 









JSR 


R5.RXCHAR 


337 









8, 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


2 7 7 









8. 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


RXERRL 


L77 


RERCHK 




8. 




BCC 


. *8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


156 









8. 




BCC 


.♦8. 


ERROR 




ESCAPb 


TST 



iREAD/CHK 357CDATA17), RCV 337fDATA18) 



j BR IF NO ERROR 
{REPORT STACKED ERROR 

j SKIP TO END OF TEST 



{LOAD 2ND TEOM 



TRAP 

TRAP 
,W0RD 



jREAD/CHK 337CDATA18), RCV 277CDATA19) 



{ BP IF NO ERROR 
jREPORT STACKED ERROR 

{SKIP TO END OF TES1 



TRAP 

TRAP 
.WORD 



jREAD/CHK 277CDATA19), RCV 177CDATA20) 



j BR IE NO ERROR 
{REPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



SEQ 0136 



CJERROR 

CJESCAPE 
L10022-. 



C5ERR0R 

C*ESCAPE 
L10022-. 



CJERROR 



CSESCAPE 
L 10022 -. 



jREAD/CHK 177CDATA20), RCV FIRST CRC B^rTE 



{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CSERROR 

C5ESCAPK 

1. 10022 -. 



iREAD t> CHK 1ST CRC 6>TE, RCV SECOND CRC BtTt 



jBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OE TEST 



TRAP 



CSfcMROR 



1-1 1 1 

CNOMEAO OMV11 LINE UNIT D1AG3 MACRO M1200 22-FES-84 15:48 PAGE 68-4 
TEST 3 - DATA TEST -- BCP XLB CRC16 



SEQ 0137 



5428 
54?9 
5430 
5431 
5432 
5433 
5434 

5^35 



5436 
5437 
5438 
54 39 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
544 7 
5448 

5449 



5450 



027052 
027054 

027056 

027062 
027064 

027066 
027070 
027072 
027072 
027074 
027074 
027076 

027100 

027104 

027106 
027112 
027114 
027116 

027122 

027126 
027130 
027132 
027132 
027134 
027134 
027136 
027140 
027140 
027140 



104410 
000064 

004537 
000236 
000000 
000010 
103003 

104460 

104410 
000042 

005337 
001406 

004537 
000001 
000001 
000137 

004537 
000011 

103003 

104460 

104410 
000002 



104401 



010350 



002526 

010250 

026346 
011772 





JSR 

236 



8. 

BCC 

ERROR 


R5.RXCHAR 

» »8. 




ESCAPE 


TST 


♦ 


DEC 
BEQ 


REGO 
40$ 




JSR 
TSOM 
1 
JMP 


R5.TXCTRL 
2$ 


40*: 
3$: 


JSR 
9. 
BCC 
ERROR 


R5.ENTRAN 

. ♦a. 



ENDTST 



ESCAPE TST 



TRAP 
.WORD 

jREAD 6 CHK 2ND CRC BYTE, RCV 1ST SYNCH 



C$ESCAPE 
L10022-. 



jBR IF NO ERROR 
jREPORT STACKED ERROR 

l SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



{DECREMENT COUNT 

jBR IF TRIPLE LOOP IS COMPLETED 

} CLEAR TEOM, SET TSOM 



tAND RUN TX/RX AGAIN 

jSHUT DOWN TRANSMITTER, RECEIVER 

I BR IF NO ERROR 
jREPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CiERROR 

C5ESCAPE 
L 10022 -. 



L 10022: 



TRAP 



C$ERROR 

C$E SCAPE 
L 10022 -, 



CSETST 
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SEQ 0138 



546^ 
5470 
5471 
54 72 
54 75 
54 74 
54 75 
54 76 
54 7 7 
54 78 
54 79 
5480 
5481 
5482 
5483 
54B4 

5485 



5486 
5487 
5488 
5489 
5490 
5491 

549? 



>4 9 3 



027142 
027142 
027146 
027154 
027162 
0271/0 
027172 
027200 
02/202 
027210 



027216 
027222 
02/224 
027226 
027250 
027230 
027232 
027232 
027234 

027236 
02 7242 
02/244 
02 7246 
027250 
027250 
02/252 
02 7252 
02/254 



004 757 
042737 
012737 
025727 
001412 
023727 
001406 
052737 
052737 



004537 
062226 
00034 7 
103003 

104460 

1044X0 
000446 

00453/ 

000226 
000C0 7 
103003 

104460 

104410 
000426 



0053/6 
001000 
000011 
0024 70 



001000 
100000 



007234 



010136 



027224 
027670 
000000 



0024 72 000004 



027224 
027670 



.SBTTL TEST 4 -- DATA TEST -- BCP XLB ODD VRC 

j ►♦* + + + + + *** + * + * + ±** + *fc + + * + *4* + + *** + + * + ** + ** + + + + + + + + * + + + * + * + * + + + + + + * + *+ + + + * + ** 

TEST 4 .- DATA TEST - - BCP XLB ODD VRC 

IF XLB IS SPECIFIED IN THE P-TABlE, THIS TEST WILL TRANSMIT £ 
RECEIVE IN BCP MODE WITH ODD VRC ERROR DETECTION THE FOLLOWING 
MESSAGE: 



125 252 000 377 001 002 004 010 020 040 100 200 376 375 373 367 
357 337 277 1/7 

THIS MESSAGE WILL BE PRECEDED BY 3 SYNC CHARACTERS AND REPEATED 

THREE TIMES. AFTER THE LAST MESSAGE. SEVERAL SYNC CHARACTERS ARE 

SENT BEFORE DROPING TXE L RXE. 7-BIT CHARACTER LENGTHS ARE ALSO 
UTILIZED. 

IF XLB WAS NOT SPECIFIED (AND/OR BOARD TYPE IS M8064 ) . THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK CTTLOOP-l). 



BGNTST 



JSR 


PC.INIDMV 


BIC 


♦NOLOOP.ll 


MOV 


*9. .3$ 


CMP 


BRDTYP.00 


BEQ 


2$ 


CMP 


TSTC0N.04 


BEQ 


21 


BIS 


*N0L OOP.l* 


BIS 


*BIT15,3$ 



T4: : 

iINIT DMV-11, ENTER MAINT LOOP 

iINIT ENTRAN COUNT/TTLOOP STATUS 

{IS THIS AN M8064? 

{ YES; USE TTLOOP (NOT XLB), 

iIS A LOOPBACK CONNECTOR/CABLE SPECIFIED ? 

j BR IF NO 

; YES: SPECIFY NO TTLOOP (INITRN) 

l ANO SPECIFY NOLOOP IN ENTRAN 



2* 
1$ 



JSR R5, INITRN {LOAD 1 SOM, CLK TX UNTIL ACTIVE 
DDCMP!STRIPS!OVRC!SYNCH jSFT DDCMP , STRIP SYNC .ODD VRC, SYNCH-226 



$4^4 027*56 004537 010136 



TXDl JRXDl. 
BCC >»8. 

ERROR 


ESCAPE 


tst 


JSR 

SYNCH 
7. 

BCC 
ERROR 


R5, TXCHAR 
. *8. 


ESCAPE 


TST 


JSR 


RS, TXCHAR 



tUSE 7 BIT CHARS FOR RX 6 TX 
j BR IF NO ERROR 

jREPORT STACKED ERROR 

{SKIP TO END OF TEST 



{LOAD 2ND SYNCH, TX 1ST SYNCH 



i BR U" NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



tLOAO 3RD SyNCH. TX ^NO SyNCH 



TRAP 

TRAP 
.WORD 



C TERROR 

CSESCAPE 
L 10023 -. 



TRAP 

TRAP 
.WORD 



C $ ERROR 

CSt -SCAPE 

L 10023 • , 
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5495 


027262 


000226 


5496 


027264 


000010 


5497 


027266 


103003 


5498 


027270 






02 7270 


104460 


5499 


027272 






027272 


104410 




027274 


000406 


5500 






5501 


027276 


004537 010250 


5502 


027302 


000000 


5505 


027304 


000000 


5504 






5505 


027306 


004537 010136 


5506 


027312 


000125 


5507 


027314 


000010 


5508 


027316 


103003 


5509 


027320 






02 7320 


104460 


5510 


027322 






027322 


104410 




027324 


000356 


5511 






551? 


027326 


004537 010136 


5513 


027332 


000252 


5514 


027334 


000010 


5515 


027336 


103003 


5516 


027340 






027340 


104460 


5517 


027342 






027342 


104410 




027344 


000336 


5518 






5519 


027346 


0O4537 010136 


5520 


027352 


OOOOOO 


5521 


027354 


OOOOOO 


5522 


027356 


103003 


5523 


027360 






027360 


104460 


5524 


027362 






02?362 


104410 




027364 


000316 


5525 






5526 


027366 


0O4537 011624 


552/ 


02/3 72 


OOOCOO 


5528 


027374 


103003 


5529 


027376 






027376 


104460 


5530 


02/400 






027400 


104410 




02/402 


000300 


5531 






5532 


02/404 


00453/ 010350 


5533 


027410 


000125 


5534 


02/412 


000001 


5535 


02 7414 


000010 


5S3b 


027416 


103Q03 



SYNCH 
8. 
BCC 
ERROR 


,♦8. 


ESCAPE 


TST 


JSR 
000 



R5.TXCTRL 


JSR 

125 
8. 
BCC 
ERROR 


R5.TXCHAR 
. »8. 


ESCAPE 


TST 


JSR 
252 
8. 

BCC 
ERROR 


R5.TXCHAR 
,*8, 


ESCAPE 


TST 


JSR 
000 

BCC 

ERROR 


R5.TXCHAR 


ESCAPE 


TST 


JSR 



BCC 

ERROR 


R5.RCV1ST 
. *8. 


ESCAPE 


TST 


JSR 
125 

RFRCHK 

8. 

BCC 


R5,PXCHAR 



I BR IF NO ERROR 

l REPORT STACKED ERROR 

{SKIP TO END OF TEST 



j CLEAR TSOM 



lLOAD 125CDATA1), TX 3RD SYNCH 



j BR IF NO ERROR 

t REPORT STACKED ERROR 

I SKIP TO END OF TEST 



{LOAD 252CDATA2), TX 125CDATA1) 



{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{LOAD 000CDA1A3) 



}8R If NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{CLOCK AND RCV 125CDATA1) 

j BR IF NO ERROR 

{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



{READ £ CHK 125CDATA1), RCV 252CDATA2) 
j 6 CHECK RERR BIT»0 (GOOD VRC) 
{BR IF NU ERROR 



SEQ 0139 



C* ERROR 

C$ ESCAPE 
L10023-. 



CJERROR 

CSE5CAPE 
L10O23-. 



CSERROR 

CJESCAPE 
L10023-, 



CSERROR 

CSESCAPE 
L10023-. 



CiERROR 

CU- sCAPE 
L 10023 -. 
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553? 
5538 



5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 
5550 

5551 



5552 
5553 
5554 
5555 
5556 
5557 
5558 

5559 



5560 
5561 
556? 
5563 
5564 
5565 
5566 
5567 
5568 

5569 



5570 
5571 
5572 
5573 
5574 
5575 
5576 

5577 



5578 



027420 
027420 
027422 
027422 
027424 



027426 
027432 
027436 

027444 
027450 
027452 
027454 
027456 
027456 
027460 
027460 
027462 

027464 
027470 
027472 
027474 
027476 
02/500 
027500 
027502 
027502 
027504 

027506 
027512 

027514 
027520 
027522 
027524 
02 7526 
027526 
027530 
02/530 
027532 

02 7534 
02/540 
02 7542 

027544 
027546 
027550 
027550 
02/552 
027552 
027554 



104460 

104410 
000256 



012702 
112237 
116237 



ERROR 
ESCAPE TST 



jREPORT STACKED ERROR 
I SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



002646 
027470 
000001 



027450 



S TRANSMIT THE BULK df DATA OUT OF TABLE "PATX" 
, - - - ~ 

5$! 



004537 010136 
000000 
000000 
103003 

104460 

104410 
000220 

004537 010350 

000000 

000001 

000010 

103003 

104460 

104410 
0001/6 

022702 002737 
001347 

004537 010250 
000001 
000000 
103003 

104460 

104410 
000150 



10$ 



20$ 



004537 
00027 7 

000001 
000010 
103003 

104460 

104410 
000126 



010350 



MOV 

MCVB 

MOVB 



#PATX*1,R2 

(R2)*,20$ 

1(R2).10$ 



j SET UP TABLE POINTER 
{SET UP EXPECTED CHARACTER 
{SET UP TRANSMIT CHARACTER 



JSR 

000 



BCC 

ERROR 

ESCAPE 



JSR 
000 
RFRCHK 
8. 

BCC 
ERROR 



R5.TXCHAR 

.♦8. 

TST 

R5.RXCHAR 

. »8> 



{LOAD A CHARACTER 

j+* HOLE FOR NEXT TX CHARACTER 

jBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



{CLK/RECEIVE/CHECK PREVIOUS CHARACTER 
j** HOLE FOR EXPECTED CHARACTER 
{ 6 CHECK RERR BIT=>0 CGOOD VRC) 



ESCAPE TST 



CMP 0EPATX1.R2 
BNE 5$ 



{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 

.WORD 



JSR 

TSOM 



BCC .♦O. 

ERROR 

ESCAPE TST 



R5.TXCTRL 



JSR 
27/ 

RERCFK 
8. 
BCC 
ERROR 



R5.RXCHAR 



. »8. 



ESCAPE T 3 f 



{LOAD TSOM 



5 BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{READ C CHK 277, RCV 177 

j £ CHECK RERR BIT=0 (GOOD VRC) 

j BR IF NO ERROR 
{REPORT STACKFD ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



SEQ 0140 



C JERROR 

CJESCAPE 
L10023-, 



C$ERR0R 

C ESCAPE 
L 10023 -. 



CJERROR 

C$ESCAPE 
L10023-. 



CSERROR 
C* ESCAPE 



CJIRROH 

CUSCAPf 
I 10023- , 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15;48 PAGE 
TEST 4 -- DATA TEST -- 8CP XLB ODD VRC 



-. 1 1 

69-3 



5579 


027556 


004537 


5580 


027562 


000001 


5581 


027564 


000000 


5582 


027566 


103003 


5585 


027570 






027570 


104460 


5584 


027572 






027572 


104410 




027574 


000106 


5585 






5586 


027576 


004537 


5587 


027602 


000177 


5588 


027604 


000001 


5589 


027606 


000010 


5590 


027610 


103003 


5591 


027612 






027612 


104460 


5592 


027614 






027614 


104410 




027616 


000064 


5593 






5594 


027620 


004537 


5595 


027624 


000226 


5596 


027626 


000001 


5597 


027630 


000010 


5598 


027632 


103003 


5599 


027634 






027634 


104460 


5600 


027636 






027636 


104410 




027640 


000042 


5601 






5602 


027642 


004537 


5603 


027646 


000226 


5604 


027650 


000001 


5605 


027652 


000010 


5606 


027654 


103003 


5607 


027656 






027656 


104460 


5608 


027660 






027660 


104410 




027662 


000020 


5609 






5610 


027664 


004537 


5611 


027670 


000011 


5612 


027672 


103003 


5613 


027674 






027674 


104460 


5614 


02 76/6 






0276/6 


104410 




027700 


000002 


5615 


027 702 
027 702 






027702 


104401 



010250 



010350 



010350 



010350 



011772 



3$: 



tNDTST 



JSR 

TSOM 



bcc .♦a. 

ERROR 
ESCAPE TST 



R5.TXCTRL 



JSR 


R5,RXCHAR 


177 




RERCHK 




8. 




BCC 


.♦8. 


ERROR 





ESCAPE TST 



JSR 

SYNCH 

RERCHK 

6. 

BCC ,*8. 

ERROR 

ESCAPE TST 



R5,RXCHAR 



JSR 

SYNCH 

RERCHK 

8. 

BCC ,»8, 

ERROR 

ESCAPE TST 



R5 ( RXCHAR 



JSR 

9, 

BCC . *8. 

ERROR 

ESCAPE TST 



R5.ENTRAN 



j LOAD 2ND TSOM 



jBR IF NO ERROR 

j REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{READ 6 CHK 177. RCV FIRST SYNC 

i 6 CHECK RERR BIT*0 (GOOD VRC) 

j BR IF NO ERROR 

j REPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.UORD 



j READ £ CHK 1ST SYNC, RCV SECOND SYNC 
} 6 CHECK RERR BIT«0 (GOOD VRC) 



iBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 

.UORD 



{READ L CHK 2ND SYNC, RCV NEXT ONE 
j L CHECK RERR BIT*0 (GOOD VRC) 



jBR IF NO ERROR 

{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



{SHUT DOWN TRANSMITTER, RECEIVER 

jBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 

.WORD 



L 10023: 



C$ERROR 

C*ESCAPE 
L 10023 -. 



C4ERR0R 

C5ESCAPE 
L10023-. 



CSERROR 

CSESCAPE 
L10023-. 



CSERROR 

CiESCAPE 
L10023-* 



TRAP 



CSERROR 

CU SCAPE 

L10023-. 



CJETST 



SEQ 014 



CNOMEAO DMV11 LINE UNIT DIAG3 
TEST 5 - DATA TEST -- BCP XLB 
5633 



MACRO M1200 
EVEN VRC 



22-FEB-84 15:48 



Mil 
PAGE 70 



SEQ 0142 



.SBTTL TEST 5 -- DATA TEST -- BCP XLB EVEN VRC 



5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
564 3 
5644 
5645 
5646 
564 7 
5648 

5649 



5650 
5651 
5652 
5653 
5654 
5655 

5656 



565/ 
5658 
5659 



027704 

027704 
027710 
027716 
027 724 
027732 
027 734 
027742 
027744 
027752 

027760 
027764 
027 766 
027770 
027 7 72 
02/7/2 
027774 
027774 
027 776 

030000 
030004 
030006 
030010 
030012 
030012 
030014 
030014 
030016 

030020 
030024 



004737 005376 

042737 001000 

012737 000011 

023727 002470 
001412 
023727 
001406 

052737 OOIOOO 

053737 100000 

004537 007234 

062626 

00034 7 

103003 

104460 

104410 
000446 

004537 010136 

000226 
000007 
103003 

104460 

104410 
000426 

00453/ 010136 
000226 



027766 
030432 
000000 



002472 000004 



027766 
030432 



IF XLB IS 
RECEIVE IN 
MESSAGE: 



SPECIFIED 
BCP MODE 



IN THE P- TABLE, THIS TEST WILL TRANSMIT 6 
WITH EVEN VRC ERROR DETECTION THE FOLLOWING 



5 + 

}* TEST 5 -- DATA TEST — BCP XLB EVEN VRC 
i* 

;* 

; + 
;♦ 

{* 

;* 

j* 

t* 

;♦ 

j* 

i* 
;♦ 



125 252 000 377 001 002 004 010 020 040 100 200 376 375 373 367 
357 337 277 177 

THIS MESSAGE WILL BE. PRECEDED BY 3 SYNC CHARACTERS AND REPEATED 

THREE TIMES, AFTER THE LAST MESSAGE, SEVERAL SYNC CHARACTERS ARE 

SENT BEFORE DROPING TXE £ RXE. 7 -BIT CHARACTER LENGTHS ARE ALSO 
UTILIZED. 

IF XLB WAS NOT SPECIFIED C AND/OR BOARD TYPE IS M8064), THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK CTTLOOP-l). 



i 



BGNTST 



2% 



JSR 


PC.INIDMV 


BIC 


ONOLOOP.IS 


MOV 


09. ,3$ 


CMP 


BRDTYP,*0 


BEQ 


2$ 


CMP 


TSTC0N.04 


BEQ 


?% 


BIS 


*N0L00P,1$ 


BIS 


BIT15,3$ 


JSR 


R5,INITRN 


DDCMP!STRIPS!EVRC! 


TXDLiRXDL 


BCC 


. *8. 


ERROR 




ESCAPE 


rsT 


JSR 


R5.TXCHAR 


SYNCH 

7. 

BCC 




.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCHAR 



T5: : 
jINIT DMV-11. ENTER M-LOOP 

JlNIT ENTRAN COUNT /STATUS 
{IS BOARD TYPE M8064? 
I YES: SPECIFY TTl.OOP CNOT XLB) 
{IS A LOOPBACK CONNECTOR/CABLE SPECIFIED ? 
BR IF NO 
YES: SPECIFY NO TTLOOP (INITRN) 

AND SPECIFY NOLOOP IN ENTRAN 



{LOAD 1 SOM, CLK TX UNTIL ACTIVE 

{SET DDCMP.STRIP SYNCH, EVEN VRC , SYNCH*226 
{USE 7 BIT CHARS FOR TX £ RX 
{BR IF NO ERROR 
{REPORT STACKED ERROR 



{SKIP TO END OF TEST 



I LOAD 2ND SYNCH, TX 1ST SYNCH 



{RR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



{LOAD 3RD SYNCH, TX 2ND SYNCH 



TRAP 

TRAP 
♦ WORD 



C* ERROR 

C5ESCAPE 
L 10024 -. 



TRAP 

TRAP 
.WORD 



CJEHHOR 

C U.5C API 

L 10024 . 



,YNCH 



CNDMEAO DMV11 LINE UNIT DTAG3 MACRO M1200 
TEST 5 -- DATA TEST -- BCP XLB EVEN VRC 



5660 


030026 


000010 


5661 


030030 


103003 


5662 


C30032 






030032 


104460 


5663 


030034 






030034 


104410 




030036 


000406 


5664 






5665 


030040 


004537 010250 


5666 


030044 


000000 


5667 


030046 


000000 


5668 






5669 


030050 


004537 010136 


5670 


030054 


000125 


5671 


030056 


000010 


5672 


030060 


103003 


5673 


030062 






030062 


104460 


5674 


030064 






030064 


104410 




030066 


000356 


5675 






5676 


030070 


004537 010136 


5677 


030074 


000252 


5678 


030076 


000010 


5679 


030100 


103003 


5680 


030102 






030102 


104460 


5681 


030104 






030104 


104410 




030106 


000336 


5682 






5683 


030110 


004537 010136 


5684 


03011' 


000000 


5685 


030116 


000000 


5686 


030120 


103003 


5687 


030122 






030122 


104460 


5688 


030124 






030124 


104410 




030126 


000316 


5689 






5690 


030130 


004537 011624 


5691 


030134 


000000 


5692 


030136 


103003 


5693 


030140 






030140 


104460 


5694 


030142 






030142 


104410 




0301,44 


000300 


5695 






5696 


030146 


004537 010350 


5*97 


030152 


000125 


56 S 8 


030154 


000001 


5699 


030156 


0000 1.0 


S'.'OO 


030160 


103003 


5701 


030162 







Nil 


22 -FEB -84 


15s 48 PAGE 70-1 


8. 

BCC 

ERROR 


. »8. 


ESCAPE 


TST 


JSR 
000 



R5.TXCTRL 


JSR 

125 

8. 

RCC 

ERROR 


R5.TXCHAR 


ESCAPE 


TST 


JSR 

252 

8. 

BCC 

ERROR 


R5.TXCHAR 
t *8. 


ESCAPE 


TST 


JSR 

000 



BCC 

ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 



BCC 

ERROR 


R5.RCV1ST 
, »8. 


ESCAPE 


TST 


JSR 


R5.RXCHAR 


RERCHK 

a. 

BCC 
ERROR 


. »8. 



SEQ 0143 



i BR IF NO ERROR 
{REPORT STACKED ERROR 

j SKIP TO END OF TEST 



i CLEAR TSOM 



{LOAD 125(DATA1), ■ ^Hr SYNCH 



j BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



iLOAU 252(DATA2), TX 125CDATA1) 



{BR IF NO ERROR 
{REPORT STACKEC ERROR 

{SKIP TO END OF TEST 



{LOAD 000CDATA3) 



;BR IF NO ERROR 
{REPORT STACKED ERROR 

♦SKIP TO END OF TEST 



{CLOCK AND RCV 125CDATA1) 

{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



CIERROR 



TRAP CIESCAPE 
.WORD L 10024 -. 



{RF.AD ft CHK 125CDATAO, CV 252CDATA2) 

i £ CHECK RERR BIT-0 (GOOD VHC ) 

{BR L» NU ERROR 
{REPORT STACKED ERROR 



CIERROR 

CIESCAPE 
L 10024 -. 



CI ERROR 

CIESCAPE 
L10024-. 



CIERROR 

CIESCAPE 
L 10024 -, 



CIERROR 

CILSCAPt 
L 10024 -. 



CNOMEAO DMVU LINE UNIT D1AG3 MACRO M120O 22-FEB 84 
TfcST 5 - DATA TES1 BCP XLB EVEN VRC 



B.1.2 

15s 48 PAGfc 70-2 



5702 



5 703 
5704 
5 705 
5706 
5707 
5706 
5709 
5/10 
5711 
5712 
5715 
5 714 

5715 



5716 
5717 
5718 
5719 
5720 
5721 
5722 

5/25 



5724 
5 725 
5/26 
5 72 7 
5728 
5729 
5730 
5731 
5 7 52 

5733 



5 7 54 
5 755 
5 7 56 
5757 
5/S8 
5 7 5** 
5 740 

5 741 



030162 
030164 
030164 
030166 



030170 
030174 
03C200 

030206 

030212 
030214 
030216 
050220 
030220 
030222 
050222 
030224 

030226 
030232 
030234 
030236 
050240 
050242 
030242 
050244 
050244 
050246 

050250 
050254 

050256 
050262 
050264 
050266 
0502 70 
0502 70 
0502 72 
0502 72 
030274 

0302 76 
050502 
050 504 

50 506 
050510 
050512 
050512 
030514 
030514 
50U6 



104460 

104410 
000256 



012702 002646 
112237 030252 
116237 000001 

00453 7 010136 
000000 
000000 
103003 

104460 

104410 
000220 

004537 010350 

OOOOOO 

000001 

OOOOIO 

103003 

104460 

104410 
000176 

022 702 00273 7 
001347 

004537 010250 
OOOOOl 
OOOOOO 
103005 

104460 

104410 
000150 

00455 7 010350 
00027 7 
OOOOOl 
000010 
105005 

104460 

104410 
000 1 26 



ESCAPE. TST 



I SKIP TO END Or TEST 



TRAP 

TRAP 
.WORD 



I TRANSMIT THE. 
j - — * 



BULK Of DATA OUT Of TABLE "PATX" 



5$: 



ion 



20*: 



MOV 

MOVB 

MOVB 

JSR 

000 



BCC 

ERROR 

ESCAPE 



JSR 
000 
RERCHK 

8. 

BCC 

ERROR 

ESCAPE 



CMP 
8NE 



JSR 

TSOM 



HCC 

ERROR 

\ SCAPE 



JSR 

2// 

RERCHK 

8. 

BCC 

} RRDR 

ESCAPE 



GPATXt 1.R2 

(R2)* t 20l 

1(R2).10' 

R5.TXCH\R 
. »8, 
TST 

R5.RXCHAR 

,♦8. 
TST 



•EPATX-l.R? 
51 



5/42 

5/43 030520 004537 010250 



JSR 



R5.TXCTRL 
, ♦«. 
TST 

M5.RXCHAR 

. •«. 

TST 

R5.TXCTHI 



I SET UP TABLE POINTER 

I SET UP EXPECTED CHARACTER 

I SET UP TRANSMIT CHARACTER 

I LOAD A CHARACTER 

I** HOLE FOR NFXT TX CHARACTER 

j BR IF NO ERROR 

I REPORT STACKED ERROR 

I SKIP T END OF TEST 



TRAP 

TRAP 
.WORD 



i CI K/RECEIVu CHECK PREVIOUS CHARACTER 
»*♦ HOLE FOR EXPECTED CHARACTER 
l 6 CHECK RERR BIT-0 (GOOD VRC) 



I BR If NO ERROR 
iREPORT STACKED ERROR 

j SKIP TO ENO OF TEST 



TRAP 

TRAP 
.WORD 



jLOAO 1ST TSOM 



jBR [f NO ERROR 

I REPORT STACKED ERROR 

I SKIP TO END Of TEST 



I READ £ CHK 2/7, RCV 17/ 

I £ CHECK RERR BIT-0 UiUUD VRC) 

I BR I* NO ERROR 

jRlPORT STACKED ERROR 

j SKIP TO \ NO of rtst 



I LOAD i?NO TSOM 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



CIERROR 

CJESCAPE 
L 10024 • , 



CIERROR 

C IE SCAPE 
L 10024 . 



CIERROR 

CIESCAPE 
L 10024- . 



CIERROR 

Clf SCAPf 
L10024-, 



CU RWOR 

CM ■.C/'PE 
L 10024 • . 



SEQ 0144 



CNOMEAO DMV11 t INF UNIT D1AG3 

TtST 5 • DATA TEST BCP XLB EVEN VRC 



MACRO Ml 200 22 



5/44 

5/45 

5/46 
5/4/ 

574Q 



5749 

5/50 
5751 
575? 
5753 
5/54 
5755 

575t» 



5757 
5758 
5/59 
5760 
5761 
576c? 
5763 

5764 



5765 
5/66 
5/67 
5/68 
5769 
5770 
5771 



57 72 



57 73 
5/74 
57 75 
57/6 
5/7/ 

5 7 7(4 



5779 



030304 
030326 
030330 
03033c? 
030332 
030334 
030334 
030336 

030340 
030344 
030346 
030350 
030552 
030354 
030354 
030356 
030356 
030360 

030362 
030366 
030370 
0503/2 
0303/4 

0303 76 
030576 
030400 
030400 
030402 

030404 
030410 
030412 
030414 

0304 16 
030420 
50420 
0304 22 
030422 
030424 

030426 
0304 32 
0504 34 
0304 36 
0504 36 
030440 
030440 
030442 
050444 
5044 4 
030444 



000001 
000000 
103003 

104460 

104410 

000106 

004537 
0001"? 
000001 
000010 
105003 

104460 

104410 
000064 

004537 
000226 
00O001 
0000 10 
103005 

104460 

104410 
000042 

00453/ 
000226 
000001 
000010 
105003 

104460 

104410 
000020 

00453/ 

0000 u 

103003 

104460 

104410 
000002 



104401 



010350 



010350 



010350 



0117/2 



5t j 



ENDT5T 





CI. 2 


FEB 84 


15:46 PAGE /0-3 


TSOM 



BCC 

F.RROR 


, »8. 


ESCAPE 


TST 


JSR 
177 

RERCHK 
8. 

BCC 
ERROR 


R5»RXCHAR 
.♦8, 


ESCAPE 


TST 


JSR 

SYNCH 

Rfc'RCHK 

8. 

BCC 

ERROR 


R5.RXCHAR 
. *8. 



ESCAPE TST 



JSR 


R5.RXCHAR 


SYNCH 




RERCHK 




8. 




RCC 


. »fl. 


ERROR 





ESCAPE TST 



JSR 
9. 
BCC 
ERROR 



R5.ENTRAN 



ESCAPE TST 



I BR IF' NO ERROR 
jREPORT STACKED ERROR 

j SKIP TO END OF TEST 



I HEAD £ CHK 177, RCV FIRST SYNC 

j C. CHECK RFRR BIT-0 (GOOD VRC) 

iBR IF NO ERROR 
jREPORT STACKED ERROR 

I SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



iREAD 6 CHK 1ST SYNC, RCV SECOND SYNC 
j £ CHECK RERR BIT-0 (GOOD VRC) 



I BR IF NO ERROR 
jREPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



i RE AD £ CHK 2ND SyNC, RCv NExT ONE 
I L CHECK RERR BIT-0 (GOOD VRO 



i BR IF NO ERROR 
jREPORT STACKED ERROR 

I SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



iSHUT DOWN TRANSMITTER, RECEIVER 

I BR IF NO FRROR 
ifcfPORT STACKED ERROR 

I SKIP TO END Or TEST 



TRAP 

TRAP 
.WORD 



C (ERROR 

C (ESCAPE 
L10024-. 



C J ERROR 

C (ESCAPE 
L 10024 -. 



CJERROR 

C (ESCAPE 
L 10024-. 



C (ERROR 

C (ESCAPE 
L 10024 -. 



1. 10024: 



TRAP 



CM HROR 

C(t l '-C4Pt 
1.10024 . 



CJMST 



SED 0145 



CNOMfcAO DMV11 I 
TtST 6 • DATA 
5793 



INt UNIT DIAG3 
TEST • - BOP XLB 



MACRO M1200 
CRC CCITT-1 

1BTTI. 



D1.2 

22 -FEB -84 15 {40 PAGE 71 



SEU 0146 



5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 

5808 



5809 
5810 
5811 
581? 
5815 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 



030446 
030446 
03O45<1 
030460 
030466 
030474 
0304 76 
030504 
030506 

030514 
030520 
03052? 
030524 
030526 
030526 
030530 
030530 
030532 

030534 
030540 
030542 
030544 
030550 
030552 
030554 
030560 
030562 
030564 
030570 
030572 
030574 
030600 
030602 
030604 
030606 



012737 
004737 
042737 
023727 
001407 
02372 7 
001403 
052737 

004537 
OOOOOO 
000000 
103003 

104460 

104410 
000374 

004537 
000001 
000007 
004537 
000001 
OOOOIO 
004537 
000001 
000010 
004537 
OOOOOO 
OOOOOO 
00453 7 
000125 
0000 1 
103003 



000003 
005376 
001000 
002470 

0024 7? 

001000 

007234 



010250 
010250 
010250 
010250 
010156 



002526 

030522 
OOOOOO 

000004 
030522 



TEST 6 - DATA TEST -- BOP XLB CRC -CCITT-1 

TEST 6 -- OATA TEST -- BOP XLB CRC-CCITT-1 

IF XLB IS SPECIFIED IN THE P- TABLE, THIS TEST WILL TRANSMIT £ 
RECEIVE IN BOP MODE WITH CRC-CCITT 1 ERROR DETECTION THE FOLLOWING 
SHORT MESSAGE: 125 252 000 377 001 

THIS MESSAGE WILL BE PRECEDED By FLAG CHARACTERS AND REPEATED 
THREE TIMES WITH CRC AND FLAG'S FOLLOWING EACH ONE. 8-BIT CHARACTER 
LENGTHS ARE ALSO UTILIZED, 

IF XLB WAS NOT SPECIFIED (ANO/OR BOARD TYPE IS M8064), THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK CTTLOOP-1). 

BGNTST 

T6: : 
ilNIT COUNT (TEXT TRANSMITTED 3 TIMES) 
lINIT DMV-11. ENTER MAINT LOOP 

J 

iIS BOARD TYPE - M8064 ? 

} YESj SPECIFY TTLCOP (NO XLB) 

j IS A LOOPBACK CONNECTOR/CABLE SPECIFIED ? 

j BR IF NO 

j YFS: SPECIFY NO TTLOOP (INITRN) 



2i 

1* 



MOV 


03.REG0 


JSR 


PC.INIDMV 


BIC 


ONOLOOP.ll 


CMP 


BRDTYP,00 


BEQ 


2$ 


CMP 


TSTC0N.04 


BEQ 


2$ 


BIS 


ONOLOOP.li 


JSR 


R5.INITRN 












BCC 


,♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCTRL 


TSOM 




7. 




JSR 


R5.TXCTRL 


TSOM 




8. 




JSR 


R5.TXCTRL 


TSOM 




8. 




JSR 


R5.TXCTRL 


000 









JSR 


R5, TXCHAH 


125 




8. 




BCC 


.♦8. 


ERROR 





ll.OAD 1 SOM, CLK IX UNTIL ACTIVE 

jSET BOP MODE, CRC -CCITT-»1»S CHECK 

lUSE 8 BIT CHARS 

I BR IF NO ERROR 

I RE PORT STACKED ERROR 



\ SKIP TO END OF TEST 

j LOAD 2ND FLAG, TX 1ST FLAG 
ll.OAD 3RD FLAG, TX 2ND FLAG 
j LOAD 4TH FLAG, TX 3RD FLAG 
j CLEAR TSOM 
jLOAD DATAH125), TX 4TH FLAG 



j BR U NO FRROR 

j REPORT STACKED ERROR 



TRAP 

TRAP 
.WORD 



CIERROR 

C*ESCAPE 
L 10025 -. 



CNQMEAO OMVU LINE UNIT DTAG3 MACRO M1200 



TEST 6 -- DATA TEST 



BOP XLB CRC-CCITT-1 





030606 


104460 


5827 


030610 






030610 


104410 




030612 


000314 


5828 






5829 


030614 


004537 


5050 


030620 


000252 


5831 


030622 


000010 


5832 


030624 


103003 


5833 


030626 






030626 


104460 


5834 


030630 






030630 


104410 




030632 


000274 


5835 






5836 


030634 


004537 


5837 


030640 


000000 


5833 


030642 


000010 


5839 


030644 


103003 


5840 


030646 






030646 


104460 


5841 


030650 






030650 


104410 




030652 


000254 


5842 






5843 


030654 


004537 


5844 


030660 


000377 


5845 


030662 


000010 


5846 


030664 


103003 


584 7 


030666 






030666 


104460 


5848 


030670 






030670 


104410 




030672 


000234 


5849 






5850 


030674 


004537 


5851 


030700 


000001 


5852 


030702 


000011 


5853 


030 704 


103003 


5854 


030706 






030706 


104460 


5855 


030710 






030710 


104410 




030712 


000214 


5856 






5857 


030714 


004537 


5858 


030720 


000002 


5e59 


030722 


000000 


5860 






5861 


030724 


004537 


5862 


030730 


000000 


5863 


030732 


103003 


5864 


030734 






030/34 


104460 


5865 


030/36 






030/36 


104410 




030740 


000166 



010136 



010136 



010136 



010136 



010250 



011624 



E12 

22-FEB-84 15:48 PAGE 71-1 



ESCAPE 


TST 


JSR 
252 
8. 
BCC 

ERROR 


R5.TXCHAR 
. *8, 


ESCAPE 


TST 


JSR 

000 

8. 

BCC 

ERROR 


R5.TXCHAR 
. *8. 


ESCAPE 


TST 


JSR 

3/7 

8, 

BCC 

ERROR 


R5.TXCHAR 


ESCAPE 


TST 


JSR 

001 

9. 

BCC 

ERROR 


R5.TXCHAR 
.*8. 


ESCAPE 


TST 


JSR 

TEOM 




RS.TXCTRL 


JSR 


BCC 
ERROR 


R5.RCV1ST 
.♦8. 


ESCAPE 


TST 



(SKIP TO END OF TEST 



{LOAD DATA2C252), TX DATA1C125) 



j BR IF NO ERROR 

I REPORT STACKED ERROR 

{SKIP TO END OF TEST 



jLOAD DATA3C000), TX DATA2C252) 

jBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 

{LOAD DATA4C377), TX DATA3COO0) 

{BR IF NO ERROR 

{REPORT STACKED ERROR 

{SKIP TO END OF TEST 

{LOAD DATA5C001). TX DATA4C37?) 



sBR IF NO ERROR 

{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



} SET TEOM 



{CLOCK AND RCV DATAK125) 

; BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO fcND OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 

. WORD 



C$ERROR 

C5ESCAPE 
L 10025 -. 



CJERROR 

CSESCAPE 
L 10025 -. 



CSERROR 

CJESCAPE 
L 10025 -, 



CJERROR 

CSESCAPE 
L 10025 *. 



CJERROR 

CSESCAPE 
L 10025 -. 



CJFRRGR 

C$t SCAPE 
1 10025 . 



5EQ 014 7 



CNDMEAO DMVll LINE UNIT DIAG3 MACRO M1200 
TEST 6 •- DATA TEST -- BOP XLB CRC-CCITT-1 



F12 
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5866 
5867 
5868 
5869 
5870 
5871 
5872 

5873 



5874 
5875 
58 76 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5884 

5885 



5886 
5887 
5888 
5889 
5890 
5891 
5892 

5893 



5894 
5895 
5896 
5897 
5898 
5899 
5900 

5901 



5902 
5903 
59C4 

5905 
5906 
5907 
5908 

5909 



030742 
030746 
030750 
030752 
030754 
030756 
030756 
030760 
030760 
030762 

030764 
030770 
030772 

030774 
031000 
031002 
031004 
031006 
031010 
031010 
031012 
031012 
031014 

031016 
031022 
031024 
031026 
031030 
031032 
031032 
031034 
031034 
031036 

031040 
031044 
031046 
031050 
031C52 
031054 
031054 
031056 
031056 
031060 

031062 
031066 
031070 
031072 
031074 
031076 
031076 
031100 



004537 010350 

000525 

000000 

000010 

103003 

104460 

104410 
000144 

004537 010250 

000002 

000000 

004537 010350 

0C0252 

000000 

000010 

103003 

104460 

104410 
000112 

004537 010350 

000000 

000000 

000010 

103003 

104460 

104410 
000070 

004537 010350 
00037 7 
000000 
020010 
103003 

104460 

104410 
000046 

004537 010350 

001001 
000001 
060000 
103003 

104460 



JSR 


R5.RXCHAR 


RXS0MJ1 


25 







8. 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCTRL 


TEOM 









JSR 


R5.RXCHAR 


252 









8. 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


000 









8. 




BCC 


.♦8. 


ERROR 





ESCAPE TST 



R5.RXCHAR 



JSR 

377 



NCRACTJ8. 

BCC ,t8. 

ERROR 

ESCAPE TST 



JSR R5.RXCHAR 

RXEOM'OOl 

RERCHK 

NECRDAJNCRACT 

bcc .♦a. 

ERROR 
ESCAPE TST 



iREAD/CHK DATAH125), RCV DATA2C252) 
l £ CHECK RSOM-1 



I BR IF NO ERROR 

j REPORT STACKED ERROR 

{SKIP TO END OF TEST 



j SET TEOM 



TRAP 

TRAP 
.WORD 



iREAD/CHK DATA2C252), RCV DATA3C000) 



;8R IF NO ERROR 

j REPORT STACKED ERROR 

i SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



iREAD/CHK DATA3C000), RCV DATA4C377) 



j BR If NO ERROR 

{REPORT STACKED ERROR 

i SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



iREAD/CHK DATA4(377), RCV DATA5C001) 



{DON'T CHECK FOR FINAL RXACT«1 
j BR IF NO ERROR 
^REPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



iREAD/CHK DATA5C001), RCV FIRST FLAG 

j 6 CHECK REOM 

i L CHECK RERR BIT-0 V GOOD CRC ) 

, DON'T CHECK FOR FINAL R0A-RXACT»1 

jBR IF NO ERROR 

•REPORT STACKED ERROR 

TRAP 
j SKIP TO LND OF TEST 



SEQ 0148 



C*ERROR 

CiESCAPE 
L10025-. 



CiERROR 

CSESCAPE 
L 10025 -. 



CS ERROR 

CSESCAPE 
L 10025 -. 



CSERROR 

CIESCAPE 
L 10025 -. 



C$ERROR 



G12 
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TEST 6 -- DATA TEST -- BOP XLB CRC-CCITT-1 



SEQ 0149 



5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5918 
5919 



031100 
031102 

031104 
031110 

031112 

031116 
031120 
031122 
031126 
031126 
031126 
031126 



104410 
000024 

005337 002526 
001406 



000001 
000001 
000137 



104401 



TRAP 
.WORD 



CiESCAPE 
L 10025 ~. 



010250 



030514 



40$; 
ENDTST 



DEC 
BEQ 

JSR 
TSOM 
1 
JMP 



REGO 
40$ 

R5.TXCTRL 



2$ 



I DECREMENT COUNT 

jBR IF TRIPLE LOOP IS COMPLETED 

jCLEAR TEOM, SET TSOM 



} AND RUN TX/RX AGAIN 



L 10025 j 



TRAP 



CiETST 



CNOMEAO DMvit L 
TEST 7 -- DATA 
5933 



INE UNIT DIAG3 
TEST -- BOP XLB 



5934 
5935 
5936 
5937 
5938 
59^9 
5940 
5941 
594 2 
5943 
5944 
5945 
5946 
5947 

5948 



5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
596b 
5966 



031130 

031130 
031136 
031142 
031150 
031156 
031160 
031166 
031170 

031176 
031202 
031204 
031206 
031210 
031210 
031212 
031212 
031214 

031216 
031222 
031224 
031226 
031232 
031234 
031236 
031242 
031244 
031246 
031252 
031254 
031256 
031262 
031264 
031266 
031270 



012737 
004737 
042737 
023727 
001407 
023727 
001403 
052737 

004537 
000400 
000000 
103003 

104460 

104410 
000374 

004537 
00OOO1 
000007 
004537 
00OOO1 
000010 
004537 
000001 
000010 
004!;? 7 

oooooo 

000000 
00453/ 

000125 
000010 
103003 



H12 
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CRC-CCITT-0 

.SBTTL TEST 7 -- DATA TEST -- BOP XLB CRC-CCITT-0 

J* 

TEST 7 -- DATA TEST -- BOP XLB CRC-CCITT-0 



SEQ 0150 



000003 
005376 
001000 
0024 70 

002472 

001000 

007234 



010250 
010250 
010250 
010250 
010136 



002526 

031204 
OOOOOO 

000004 

031204 



i* 

s* 
»* 
{* 
; + 
} + 
;* 
}♦ 
;♦ 
i* 

: * 



IF XLB IS SPECIFIED IN THE P-TABl.F, THIS T EST WILL TRANSMIT 6 
RECEIVE IN BOP MODE WITH CRC-CCITT-0 ERROR DETECTION THE FOLLOWING 
SHORT MESSAGE; 125 252 000 377 001 

THIS MESSAGE WILL BE PRECEDED BY FLAG CHARACTERS AND REPEATED 
THREE TIMES WITH CRC ANO FLAG'S FOLLOWING EACH ONE. 8-BIT CHARACTER 
LENGTHS ARE ALSO UTILIZED. 

7T XLB WAS NOT SPECIFIED (AND/OR BOARD TYPE IS M8064 ) , THIS TEST MAY BE RUN 
USING INTERNAL LOOPBACK (TTLOOP-l). 

BGNTST 

T7 ; : 
jINIT COUNT (TEXT TRANSMITTED 3 TIMES) 
jINIT DMV-11, ENTER MAINT LOOP 

i BOARD TYPE - M8064 ? 

j YES: SPECIFY TTLOOP (NOT XLB) 

iIS A L00P8ACK CONNECTOR/CABLE SPECIFIED ? 

;BR IF NO 

j YES: SPECIFY NO TTLOOP (INITRN) 



1$ 



MOV 


03.REG0 


JSR 


PC.INIDMV 


BIC 


*N0L00P , 1 $ 


CMP 


BRDTYP.00 


BEQ 


2$ 


CMP 


TSTC0N.04 


BEQ 


2$ 


BIS 


ONOLOOP.l* 


JSR 


R5.INITRN 


CRCOS 









BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCTRL 


TSOM 




JSR 


R5.TXCTRL 


TSOM 




8. 




JSR 


R5.TXCTRL 


TSOM 




8. 




JSR 


R5.TXCTRI. 


000 




o 




JSR 


R5.TXCHAR 


125 




8. 




BCC 


.»8. 


ERROR 





iLOAD 1 SOM, CLK TX UNTIL ACTIVE 
{SET BOP MODE, CRC CCITT»>0«S CHECK 
i USE 8 BIT CHARS 
}BR IF NO ERROR 
(REPORT STACKED ERROR 



I SKIP TO END OF TEST 

jLOAD 2ND FLAG, TX 1ST FLAG 
{LOAD 3RD FLAG. TX 2ND FLAG 
j LOAD 4TH FLAG, TX 3RD FLAG 
} CLEAR TSOM 
I LOAD DATAK125), TX 4TH FLAG 



iBR IF NO ERROR 

i REPORT STACKED ERROR 



TRAP 

TRAP 
.WORD 



C $ERR0R 

CiESCAPE 
L 10026 -. 



CNDMEAO DHV11 LINE UNIT DIAG3 MACRO M1200 
TEST 7 -- DATA TEST -- BOP XLB CRC-CCITT-0 
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SEQ 0151 



5967 



5968 
5969 
5970 
5971 
5972 
5973 

5974 



5975 
5976 
5977 

5978 
5979 
5980 

5981 



5982 
5983 
5984 
5985 
5986 
5987 

5988 



5989 
5990 
5991 
5992 
5993 
5994 

5995 



5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 

6004 



60Q£ 



031270 
031272 
031272 
031274 

031276 
031302 
031304 
031306 
031310 
031310 
031312 
031312 
031314 

031316 
031322 
031324 
031326 
031330 
031330 
031332 
031332 
031334 

031336 
031342 
031344 
031346 
031350 
031350 
031352 
031352 
031354 

031356 
031362 
031364 
031366 
031370 
031370 
031372 
031372 
031374 

031376 
031402 
031404 
031406 

031412 
031414 
031416 
031416 
031420 
031420 
031422 



104460 

104410 
000314 

004537 010136 
000252 
000010 
103003 

104460 

104410 
000274 

004537 010136 

ooooco 

000010 
103003 

104460 

104410 
000254 



004537 
000377 
000010 
103003 

104460 

104410 
000234 

004537 
000001 
000011 
103003 

104460 

104410 
000214 

004537 
000002 
000000 
004537 

000000 
103003 

104460 

104410 
000166 



010136 



010136 



010250 



011624 



ESCAPE 


TST 


JSR 

252 

8. 

BCC 

ERROR 


R5.TXCHAR 
. >8. 


ESCAPE 


TST 


JSR 

000 

8. 

BCC 

ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 

377 

8. 

BCC 

ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 

001 

9. 

BCC 

ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 

TEOM 



JSR 



HCC 

ERROR 


R5.TXCTRI. 

R5.RCV1ST 
. »8. 


ESCAPE 


TST 



{SKIP TO END OP TEST 

{LOAD DATA2C252), TX DATA1C125) 



j BR IF NO ERROR 
iREPORT STACKED ERROR 

{SKIP TO END OP TEST 



lLOAD DATA3COO0), TX DATA2C252) 



iBR IF NO ERROR 

{REPORT STACKED ERROR 

j SKIP TO ENO OF TEST 



I LOAD DATA4C377), TX DATA3C000) 



{BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



,LOAD DATA5C001), TX DATA4C377) 



{BR If NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



iSRT TEOM 



(ClOCK AND RCV DATAK125) 

} 3R IF NO ERROR 
{REPORT STACKED ERROR 

I SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



CiERROR 

CiESCAPE 

L10026-, 



C iERROR 

CiESCAPE 
L 10026 -, 



CiERROR 

CiESCAPE 
L 10026 -. 



CiERROR 

CiESCAPE 
L 10026 -. 



CSERROR 

CiESCAPfr 
L 10026 -. 



CiERROR 

C^sCAPt 
L 100 Jb^ 



CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M120O 
TEST 7 -- DATA TEST -- BOP XLB CRC-CCITT-0 



J12 
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6006 


031424 


004537 010350 


6007 


031430 


000525 


6008 


031432 


000000 


6009 


031434 


000010 


6010 


031436 


103003 


6011 


031440 






031440 


104460 


6012 


031442 






031442 


104410 




031444 


000144 


6013 






6014 


031446 


004537 010250 


6015 


031452 


000002 


6016 


031454 


000000 


6017 


031456 


004537 010350 


6018 


0/1462 


000252 


6019 


031464 


000000 


6020 


031466 


000010 


6021 


031470 


103003 


6022 


031472 






031472 


104460 


6023 


031474 






031474 


104410 




031476 


000112 


6024 






6025 


031500 


004537 010350 


6026 


031504 


000000 


6027 


031506 


000000 


6028 


031510 


000010 


6029 


031512 


103003 


6030 


031514 






031514 


104460 


6031 


031516 






031516 


104410 




031520 


000070 


6032 






6033 


031522 


004537 010350 


6034 


031526 


000377 


6035 


031530 


000000 


6036 


031532 


020010 


6037 


031534 


103003 


6038 


031536 






031576 


104460 


6039 


031540 






031540 


104410 




031542 


000046 


6040 






6041 


031544 


004537 010350 


6042 


031550 


001001 


604 3 


031552 


000001 


6044 


031554 


060000 


6045 


031556 


103003 


6046 


031560 






031560 


104460 


6047 


031562 






031W 


104410 




031564 


000024 



JSR R5.RXCHAR 

RX50MJ125 



8. 

BCC . »8. 

ERROR 

ESCAPE TST 



JSR 


R5.TXCTRL 


TEOM 









JSR 


R5.RXCHAR 


252 









8. 




DCC 


.+8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


000 









8. 




BCC 


.♦8. 


ERROR 





ESCAPE TST 



JSR 


R5,RXCHAR 


377 









NCRACT! 


!8. 


BCC 


.♦8. 


ERROR 





ESCAPE TST 



JSR R5.RXCHAR 

RXEOM'OOl 

RERCHK 

NFCRDAJNCRACT 

BCC .»8. 

ERROR 

ESCAPE VST 



iREAD/CKK DATA1C125), RCV DATA2C252) 
{ 6 CHECK RSOM-1 



;BR IF NO ERROR 

I REPORT STACKED FUROR 

I SKIP TO END OF TEST 



{SET TEOM 



TRAP 

TRAP 
.WORD 



iREAD/CHK DATA2C252), RCV DATA3C000) 



iBR IF NO ERROR 
{REPORT STACKED ERROR 

i SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



jREAD/CHK DATA3COO0), RCV DATA4C377) 



iBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 

.WORD 



iREAD/CHK DATA4C377), RCV DATA5C001) 



{DON'T CHECK FOR FINAL RXACT'l 
; BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



,READ/CHK DATA5C001), RCV FIRST FLAG 

l 6 CHECK REOM 

t £ CHECK RERR QIT-0 (GOOD CRC) 

{DON'T CHECK FOR FINAL RDA*RXACT»1 

j BR IF NO ERROR 

jRFPORT STACKED ERROR 

TRAP 

{SKIP TO END OF TEST 

TRAP 
.WORD 



SEQ 0152 



CiERROR 

CJE5CAPE 
L 10026 -. 



C*ERROR 

CiESCAPE 
L10026-. 



CSERROR 

CJESCAPl- 
1.10026- . 



CJERROR 

CiESCAFF 
L 10026 -, 



C$fcRROR 

CitSCAPl 
L 10026 -. 
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TEST 7 -- DATA TEST -- BOP Xl.B CRC-CCITT-0 
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6048 

6049 031566 


005337 


002526 


• 


DEC 


REGO 


6050 031572 


001406 






BEQ 


40$ 


6051 












6052 031574 


004537 


010250 




JSR 


R5.TXCTRL 


6053 031600 


000001 






TSOM 




6054 031602 


000001 






1 




6055 031604 


000137 


031176 




JMP 


2$ 


6056 031610 






40$: 






6057 031610 






ENDTST 






031610 












031610 


104401 











SEQ 0153 



I DECREMENT COUNT 

jBR IF TRIPLE LOOP IS COMPLETED 

t CLEAR TEOM, SET TSOM 
jAND RUN TX/RX AGAIN 

L 10026: 



TRAP 



C*ETST 



LI 2 

CNDMEAO DMV11 LINE UNIT DIAG3 MACRO M1200 22-FEB-84 15{48 PAGE 73 
TEST 8 ■- MODEM CONTROL SIGNAL LOOPBACK TEST 

6077 , SBTTL TEST 8 -- MODEM CONTROL SIGNAL. LOOPBACK TEST 



SEQ 0154 



FIRST, THE DMV-11 IS INITIALIZED. THEN, TTL LOOPBACK IS SELECTED, 
AND THE FOLLOWING CHECKS ARE PERFORMED INVOLVING THE MODEM STATUS 
REGISTER : 

- RING, CARRIER, MODEM READY, TEST MODE, CTS ARE CHECKED FOR 1 STATE. 

- RTS IS DE-ASSERTED AND CTS IS CHECKED FOR 0. 

- RTS IS ASSERTED AND CTS IS CHECKED FOR 1. 



J* 

i* TEST 8 -- MODEM CONTROL SIGNAL LOOPBACK TEST 

5 * 

I* 

I* 

{* 

:* 
i + 

i* 

j+ NEXT, IF THE OPTION IS AN M8053 WITH AN H3254 TEST CONNECTOR INSTALLED, 
;+ THE DMV-11 IN INITIALIZED AGAIN, (TTL LOOPBACK IS CLEARED), AND 
;♦ THE FOLLOWING CHECKS ARE PERFORMED : 

- RING (IF EIA), CARRIER, MODEM READY, CTS ARE CHECKED FOR 1, TEST 
MODE IS CHECKED FOR 0. 

- RTS IS DE-ASSERTED, AND CARRIER AND CTS ARE CHECKED FOR O. 

- RTS IS ASSERTED, AND CARRIER AND CTS ARE CHECKED FOR 1. 

- DTR IS DE- ASSERTED, AND MODEM READY IS CHECKED FOR 0. 

- DTR IS ASSERTED, AND MODEM READY IS CHECKED FOR 1. 



i* 
; + 
; + 

i* 



++ ++4 + + + + + + ++*++ ++* + + * * + *+++ + + * + * + * * + + **■ + + *** + + * + + *++*-* + + ** + * + * + + ** + + + **' + *•+- 
BGNTST 





031612 














T8: : 




6078 


031612 


012737 


000010 


002414 




MOV 


08. , t;; tni i.i 


j SET TEST NO. FOR POSSIBLE PRINTOUT 




6079 


031620 


004537 


007532 






J'JH 


R5.CKLPBK 


jCHK FOR H3254/5 INSTALLED 




6080 


031624 


100000 








TCCHEK 








6081 


031626 


103002 








BCC 


2$ 


sBR IF YES. TO RUN TEST 




6082 


031630 
051630 
031632 


104432 
000722 








EXIT 


TST 


jNO TEST CONNECTOR, SKIP TEST 

TRAP 
.WORD 


CSEXIT 

L10027 


6083 


031634 








ait 










6084 


031634 
031654 
031654 


104402 








BGNSUB 




T8.1: 

TRAP 


C$BSU6 


6085 










jINIT 


OMV. SET 


TTL LOOPBACK. I 


ZHK MODEM STATUS 




6086 


031636 


004737 


003352 






JJR 


PC.MSTCLR 


t PERFORM MASTER CLEAR TO INI1 DMV11 




608 7 


051642 


004537 


003712 






JSR 


R5,WRITEI 


jSET PORT B FOR OUTPUT MODE 




6088 


031646 


120002 








VIADPB 








6089 


031650 


0003 7 7 








377 








6090 


031652 


004537 


003712 






JSR 


R5.WRITEI 


I SET PORT A FOR INPUT MODE 




6091 


031656 


120003 








VIADPA 








6092 


031660 


000000 








000 








6093 


031662 


004537 


003712 






JSR 


R5.WRITEI 


tSET TTL LOOPBACK 




6094 


031666 


120000 








VIMORB 








6095 


0316 70 


000002 








TTLOOP 








6096 


031672 


012737 


000001 


002336 




MOV 


Ol.RFGNUM 


jSET REG NO. FOR PRINTOUT 




6097 










jCHK 


FOR RING, 


CARRIER, MODEM 


RD> , CTS, TEST MODE, « 1 




6098 


031700 


004537 


003566 






JSR 


R5,rea; , 


;READ MODEM STATUS 




6099 


031704 


12001/ 








VIAORA 








6100 


031/06 


000000 






4$! 


.WORD 









6101 


031710 


142/37 


000023 


031706 




BICB 


OSPEEDJRCVOAT 


!UMAINT,4$ ;CLEAR UNNEEDED BITS 




6102 


031/16 


123 72/ 


031706 


000354 




CMPB 


4t,tfRINU!CARlLR!MDMRDY JCTSJ TM jCHK FOR BITS SET 




6103 


031724 


001414 








BEQ 


8$ 


iBR IF ALL BITS SET 
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6104 


031726 


012737 


000354 


6105 


031734 


013737 


031706 


6106 








6107 


031742 








031742 


104455 






031744 


000102 






031746 


015262 






031750 


020540 




6108 


031752 








031752 


104410 






031754 


000106 




6109 








6110 


031756 


004537 


00371.2 


6111 


031762 


120000 




6112 


031764 


000012 




6113 


031766 


004537 


003566 


6114 


031772 


120017 




6115 


031774 


000000 




6116 


0317 76 


132737 


000010 


6117 


032004 


0014Ub 




6118 








6119 


032006 








032006 


104455 






032010 


000103 






032012 


015311 






032014 


021146 




6120 


032016 








032016 


104410 






032020 


000042 




6121 








6122 


032022 


004537 


003712 


6123 


032026 


120000 




6124 


032030 


000002 




6125 


032032 


004537 


003566 


6126 


032036 


120017 




6127 


032040 


000000 




6128 


032042 


132737 


000010 


6129 


032050 


001004 




6130 








6131 


032052 








032052 


104455 






032054 


000104 






032056 


015326 






032060 


021146 




6132 


032062 






6133 


032062 

032062 








032062 


104403 




6134 








6135 


032064 


005737 


002470 


6156 


032070 


001002 




6137 


032072 


000137 


032554 


6138 


0320/6 


02372/ 


002472 


6139 


032104 


001372 





002324 
002326 



MOV 
MOV 
{REPORT "MODEM 
GEDF 



*RING!CARIER!MDMRDY!CTS!TM,GDATA {SET EXPECTED DATA 
4$,BDATA | SET ACTUAL DATA 
STATUS INCORRECT" 
EM83.ERRU 

j "DEVICE FATAL" ERROR 



0317/4 



ESCAPE SUB 



jDE-ASSERT RTS. CHK FOR CIS - 
8$: JSR R5.WRITEI 

VIAORB 

RT5NDJTTL00P 

JSR R5,READI 

VIAORA 
10$: .WORD 

RTTB VLI5.10S 

BEQ 12$ 
{REPORT CIS NOT CLEARED 

GEDF EMS4.ERR14 



66 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
.WORD 



;DE-ASSERT RTS 
{READ MODEM STATUS 



jLMK FOR C7S - 
}BR IF YES 



"DEVICE FATAL" ERROR Q 



ESCAPE SUB 



{ASSERT RTS, CHK FOR CIS « 1 



12$ 



JSR 

VIAORB 

TTLOOP 



R5.WRITEI 



R5.READI 



032040 



VIAORA 
14$: .WORD 

BITB 

BNE 
{REPORT CfS NOT SET 

GEDF EM85.ERR14 





0CTS,14$ 
15$ 



{ASSERT RTS 



{READ MODEM STATUS 



}CHK fOR CTS « 1 
}BR IF YES 



"DEVICE FATAL" ERROR 4 



15$: 



ENDSUB 



LlOO?'^ 



;SEE IF BOARD IS M8053 WITH H3254 INSTALLED 



TRAP 



000000 



16$ 
17$ 



1ST 

BNE 
JMP 
CMP 
BNE 



BRDTYP 

17$ 

Al 

TSICUNtW 

16$ 



{SEE IF M8053 

;BR IF U.S 

{SKIP THIS SECTION OF CODE 

I SEE IF H3254 INSIALLEO 

{BR IF NOT, TO SKIP CODE 



SEQ 0155 



C$ERDF 
66 

EM33 
ERR11 

C$ESCAPE 
L10030-. 



67 




TRAP 


CiERDF 


.WORD 


6/ 


.WORD 


EM84 


.WORD 


ERR14 


TRAP 


C$ESCAP 


,WORD 


L10030- 



66 




TRAr 


C$ERDF 


,WOHl> 


68 


.WORD 


EMM 5 


.WORD 


ERU14 



est: sub 
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SEQ 0156 



6140 



6141 

6142 

6143 

6141 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 



6177 



178 
6179 
6180 
6181 
6182 
6183 
6184 
6185 
6136 
613? 



032106 
032106 
032106 

032110 

032114 
032120 
032122 
032124 
032130 
032132 
032134 
032140 
032142 
032144 



032152 

032156 
032160 

032162 
032170 

032172 
032200 
032206 
032210 
032216 

032220 
032226 
032234 
032236 



032244 
032252 

032252 
032254 
032256 
032260 
032262 
032262 
032264 

032266 
0322/2 
0322/4 
0322/6 

032302 
032304 
032306 
032314 



104402 

004737 
004537 
120002 
000377 
004537 
120003 
000000 
004537 
120000 
000000 
012737 



004537 

120017 
000000 

023727 
001013 

142737 
123727 
001427 
012737 
000412 

142737 
123727 
001414 
012737 



013737 



104455 
000105 
015262 
020540 

104410 
000266 

00453 7 

120000 
000010 
004537 
12001/ 
000000 
132737 
001406 



003352 
003712 



003712 
003712 
000001 002336 

003566 

002470 000001 



BGNSUB 

T8.2: 

TRAP 
lINIT DMV, (TTL LOOPBACK IS CLEARED), CH!< MODEM STATUS 

JSR PC.MSTCLR ; PERFORM MASTER CLEAR TO INIT DMV 11 

JSR R5.WRITEI {SET PORT B FOR OUTPUT MODE 

VIADPB 

377 

JSR R5.WRITEI jSET PORT A FOR INPUT MODE 

VIADPA 

000 

JSR R5.WRITEI {DISABLE TTLOOP 

VIAORB 

000 

MOV Ol.REGNUM {SET REG NO. FOR PRINTOUT 

tCHK FOR RING (IF EIA), CARRIER, MODEM RDY , CTS * 1, TEST MODE, - 

R5.READI {READ MODEM STATUS 





CSBSUB 



18$ 



JSR 

VIAORA 

.WORD 



000223 
032160 



032160 
000150 



000150 002324 



000023 
032160 

000350 
032160 



032160 

000350 

002324 
002326 



21$ 



003712 



003566 



000010 032304 



CMP BRDTYP.01 } IS V.35 THE SELECTED I/h ? 

BNE 21$ j NO: BR TO DO CHECK WITH RING 

{YES: REMOVE RING BEFORE CHECKING 

BICB 0RING!SPEED!RCVDAT!UMAINT,18* {CLEAR UNNEEDED BITS 

CMPB 18$ ,4CARIER!MDMRDY'CTS ; CHK FOR CORRECT STATUS 

BEQ 20$ jBR IF STATUS CORRECT 

MOV <?CARIER!MDMRDY!CTS,GDATA {SET EXPECTED DATA 

BR 19$ 

i DO CHECK WITH RING 

BICB *SPEED!RCVDAT!UMAINT.18$ {CLEAR UNNEEDED BITS 

CMPB 18$,4RING!CARIER!MDMRDY!CTS jCHK FOR CORRECT STATUS 

BEQ 20$ :BR IF STATUS CORRECT 

MOV 4RING!CARIER!MDMRDY!CTS,GDATA iSET EXPECTED DATA 

{REPORT "MODEM STATUS INCORRECT" 

19$: MOV 18I.BDATA {SET ACTUAL DATA 
GEDF EM83.ERR11 

; "DEVICE FATAL" ERROR 69 

TRAP 
.WORD 
.WORD 
.WORD 
ESCAPE SUB 

TRAP 
.WORD 
; DE ASSERT RTS, CHK FOR C TS , CARRIER • 
20$: JSR R5.WRITEI if 6 - -ASSERT RTS 
VIAORB 
RTSND 

JSR R5,READI {READ MODEM STATUS 
VIAORA 
22$: .WORD 

BITB *CTS,22t {CHK K)R CTS * 
BtU 24 > {BR IF YES 

{REPORT CTS NOT CLEARED 



C$ERDF 
69 

EM83 
ERRU 

CSESCAPE 
L10031-, 
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6188 032316 




032316 


104455 


032320 


000106 


032322 


015311 


032324 


021146 


6189 032326 




032326 


104410 


032330 


000222 


6190 03233c 


132/57 000100 


r>191 032340 


001406 


619? 




6193 032342 




032342 


104455 


032544 


000107 


032346 


015342 


032350 


021146 


6194 032352 




032J52 


104410 


032354 


000176 


6195 




6196 032356 


004537 003712 


6197 032362 


1200O0 


6198 032364 


000000 


6199 032366 


004537 003566 


6200 032372 


120017 


6201 032374 


000000 


6202 032376 


132737 000010 


6203 032404 


001006 


6204 




6205 032406 




032406 


104455 


032410 


0001 10 


032412 


015326 


032414 


021146 


6206 032416 




032416 


104410 


032420 


000132 


6207 032422 


13275 7 000100 


6208 032430 


001006 


6209 




6210 032432 




0324 32 


104455 


0324 34 


0001 11 


0324 36 


015563 


032440 


021146 


6211 052442 




032442 


104410 


032444 


000106 


6212 




621 5 052446 


00455 7 00371.' 


6214 032452 


120000 


6215 524 54 


000020 


6216 032456 


004537 003566 



GEDF 



EM84,ERR14 



"DEVICE FATAL" 



ESCAPE sue 



032304 24$: 



BITS 0CARIER.22* 

BEQ 26$ 

iREPORT CARRIER NOT CLEARED 
GEDF EM86.ERR14 



iCHK FOP CARRIER • 
jBR IF YES 



•DEVICE FATAL" 



032374 



ESCAPE sue 



lASSERT RTS, CHK FOR CTS, CARRIER • 1 

26$s JSR R5,WRITEI (ASSERT RTS 

VIAORB 

000 

JSR R5.READI jREAD MODEM STATUS 

VIAORA 
28$: .WORD 

BITB 0CTS,28$ 

BNE 30$ 

I REPORT CTS NOT SET 

GEDF EM85,ERR14 

l "DEVICE FATAL 



ESCAPE SUB 



ERROR 70 

TRAP 

. WORD 
.WORD 
.WORD 

TRAP 
.WORD 



ERROR 71 

TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
.UORD 



i CHK FOR CTS • 1 
I BR IF YES 



032374 30$: 



BITB *CARIFR,28t 

BNfc 52$ 

i REPORT CARRIER NOT SET 

GEDF EM87.ERR14 



j CHK fOR CARRIER - 1 
lUR IF YES 



"DEVICE FATAL 



ESCAPE SUB 



, Oi ■ ASSERT DTR, CHK f OR MODEM READ* • 

32$; J5R R5.WRITH i DE ASSFRi DTR 

VIAORB 

DTR 

JSR R5,REAU1 |RtAO MODEM STATUS 



tRWOR Q 73 

TRAP 

,WORD 
.WORD 
.WORD 

TRAP 
.WORD 



SEQ 0157 



CIEROF 

70 

EM84 

ERR14 

cnscAPt 

L 10031 ■-, 



CIERDF 
71 

EM86 
ERR14 

CIESCAPE 
L 10031 . 



ERROR 72 




TRAP 


CIERDF 


.WORD 


72 


.WORD 


EM85 


.WORD 


ERR14 


TRAP 


CIESCAPE 


.WORD 


I 10031 , 



CIERDF 
."3 

EM8 7 
FRR14 

C*t ,CAP* 
L 10051 •. 
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05246c? 
032464 
052466 

032474 



6217 
6218 
621<> 
6220 
t>221 
bZJe 0524 76 



6223 



o224 
6^25 
622fc 
6227 
6228 
6229 
6230 
6^31 
6232 
6253 
6234 



6233 

6236 



623 7 



0324 76 
032500 
032502 
052504 
032506 
032506 
032510 

032512 
032516 
032520 
032522 
032526 
032530 
032532 
032540 

032542 

032542 
032544 
032546 
032550 
032552 
052552 
032552 
032552 
032554 
032554 
032554 
032554 



120017 
000000 
132757 
001406 



104455 
000112 
015403 
021146 

104410 
000O42 

004537 
120000 
000000 
0O4537 
120017 
OOOOOO 
13273; 
001004 



104455 
000113 
015426 
021146 



104403 



104401 



000040 032464 



003712 



003566 



000040 032530 







VIAOPA 

34 It .WORD 

8ITB *M0MRD*,34$ ,CHK FOR MODEM READY 

BF.U 36$ | BR IF YES 

jREPORT MODEM READY NOT CLEARED 

GEDF EM88,ERR14 

I "DEVICE FATAL" cRROR 





ESCAPE 


SUB 


I ASSERT 


DTR, CHK FOR MODEM READY 


36$; 


JSR 

VIAORB 

000 


R5.WRITEI 




JSR 


R5.READI 




VIAORA 




58$ : 


.WORD 







BITB 


#M0MRDY,38$ 




BNE 


40$ 


tREPORT 


MODEM READY NOT SET 




GEDF 


EM89,ERR14 



• 1 

jASSERT DTR 

jREAD MODEM STATUS 



j CHK FOR MODEM READY 
}BR IF YES 



"DEVICE FATAL- ERROR 



40$: 



Al: 
ENOTST 



END'iUfc 



110031 



L 1002 7 j 



TRAP 



TRAP 



SEQ 0158 



74 




TRAP 


CIERDF 


.WORD 


74 


.WORD 


EM88 


.WORD 


ERR14 


TRAP 


C IF SCAPE 


.WORD 


L10031- . 



75 




TRAP 


C IE RDF 


.WORD 


75 


.WORD 


EMfi^ 


.WORD 


ERR14 



c$Esue 



c$t-r$T 



CNDMEAO DMVli LINE UN 11 DIAG3 
TEST * - DDCMP MESSAGE TEST 
6259 



D1.3 

MACRO M120O 22-FEB-84 15:48 PAGE 74 



6260 
6261 
6262 
6263 
6264 
6265 
6266 
626/ 
6268 
6269 
62 70 
6271 
6272 
6275 

6274 



6275 
62 76 
6277 
62 78 
62/9 
6280 
6281 
6282 
628 3 
*,?** 

62as 



032556 
032556 
032564 
032570 
032576 
032604 
032606 
032614 
032616 

032624 
032630 
032632 
52634 
032636 
032636 
032640 
032640 
032642 

032644 
052650 
032652 
032654 
032660 
032662 
032664 
0326/0 
032b 72 
032674 



012737 
004 737 
042737 
023 72 7 
001407 
023727 
001403 
052737 

0O4537 
065626 
OOOOOO 
103003 

104460 

104410 
001032 

00453 7 
0OOOO1 
00000 7 
00453/ 
000001 
000010 
00453/ 
OOOOOO 
OOOOOO 
004537 



000003 
005376 
001000 
0024 70 

002472 
001000 
007234 



010250 
010250 
010250 
010136 



SEQ 0159 



032632 
OOOOOO 

000004 

032632 



.SBTTL TEST 9 .- DDCMP MESSAGE TEST 



TEST 9 



DDCMP MESSAGE TEST 



THIS 1EST WILL USE XLB IE IT IS ENABLED -- OTHERWISE TTL LOOPBACK 
WILL BE UTILIZED. THIS ASSURES THAT IT CAN ALWAYS BE RUN AS A 
GENERAL "RINGOUT" OF THE M8053. 

INITIALIZATION: BCP MOOE , CRC-16. IDLE - 0, SYNC CS/AR) * 226 OCT. 
(96 HEX.), RXCL 6 TXCL ■ (CHAR, LENGTH - 8). 

THE FOLLOWING SAMPLE DDCMP MESSAGE IS TRANSMITTED t RECEIVED AND ALL 
DATA ANO CRC CHARACTERS ARE CHECKED FOR ERRORS: 

- --• - HEADER DATA (PATTERN K) 

SYNC SYNC 201 000 075 003 002 001 CRC CRC 000 377 ... 252 000 CRC CRC 

THE ATTEMPT HERE IS TO PROVIDE A TEST JUST BELOW THE LEVEL OF THE 
FUNCTIONAL DIAGNOSTIC. THE USyRT WILl BE RESPONSIBLE FOR ALL CRC 
GENERATION ANO VERIFICATION BUT THE CRC'S WILL ALSO BE VERIFIED BY 
SOFTWARE. 

BGNTST 



MOV 03.REGO 

JSR PC.INIDMV 

BIC *NOLOOP,1* 

CMP BRDTYP.00 

BEQ 21 

CMP TSTC0N.G4 

BEQ 21 

BIS 0N0L00P.lt 



T9: : 
lINIT COUNT (TEXT TRANSMITTED 3 TIMES) 
iINIT DMV-11, ENTER MAINT LOOP 

I 

i BOARD TYPE - M8064 ? 

I YES: SPECIFY TTLOOP (NOT XLB) 

iIS A LOOPBACK CONNECTOR/CABLE SPECIFIED V 

j BR IF NO 

i YES: SPECIFY NO TTLOOP CINITRN) 



2$ 

1$ 



JSR R5.INITRN jLOAD 1 SOM, CLK TX UNTIL ACTIVE 

DDCMP!STRIPS!IOLES5CRC16!SYNCH j SE T DDCMP, STRIP, IDLE ,CRC- 16 , SYNCH. 2^6 





BCC 

ERROR 

ESCAPE 



JSR 

TSOM 

7. 

JSR 

TSOM 

e. 

JSR 
000 

o 

JSR 



.»8. 
TST 

R5.TXCTRL 
R5.TXCTRI. 
H5.TXCTRI 
R5.TXCHAR 



lUSE 8 BIT CHARS 
I BR IF NO ERROR 
iREPORT STACKED ERROR 

jSKIP TO END OF TEST 



(SET TSOM, TX 1ST SiNLH 

jTX 2ND SYNCH 

I CLEAR TSUM 

iLUAU 20HHEA0R1), TX 3RD v j1NCN 



TRAP 

TRAP 
.WORD 



C* ERROR 

C*EsCAPfc 
L 1003c?-. 
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SEQ 0160 



6286 


032700 


000201 


6287 


032702 


000010 


6288 


032704 


103003 


6289 


032706 






032706 


104460 


6290 


032710 






032710 


104410 




032712 


000762 


6291 






6292 


032714 


004537 


6293 


032720 


000000 


6294 


032722 


000010 


6293 


032724 


103003 


6296 


032726 






032726 


104460 


6297 


032730 






032730 


104410 




032732 


000742 


6298 






6299 


032734 


004537 


6500 


032740 


000075 


6301 


032742 


000010 


6302 


032744 


103003 


6303 


032746 






032746 


104460 


6304 


032750 






032750 


104410 




032752 


000722 


6305 






6306 


032754 


004537 


630/ 


032760 


000003 


6308 


032762 


000010 


6309 


032764 


103003 


6310 


032766 






032766 


104460 


6311 


032770 






032770 


104410 




032772 


000702 


6312 






6313 


032774 


00453 7 


6314 


033000 


000002 


6315 


033002 


OOOOOO 


6316 


033004 


103003 


6317 


033006 






033006 


104460 


6318 


033010 






033010 


104410 




033012 


000662 


6319 






6320 


033014 


00453 7 


6321 


033020 


ooooco 


6322 


033022 


103003 


6323 


033024 






033024 


104460 


6324 


03.^026 






033026 


1044 LO 




033050 


000644 



010136 



010136 



010136 



010136 



011624 



201 
8, 

BCC 
ERROR 


.♦8. 


ESCAPE 


TST 


JSR 

000 

8. 

BCC 

ERROR 


R5.TXCHAR 
.*8. 


ESCAPE 


TST 


JSR 
75 
8. 
BCC 
ERROR 


R5.TXCHAR 
.♦8. 


ESCAPE 


TST 


JSR 


R5.TXCHAR 


00 o 
8. 
BCC 
ERROR 


,♦8, 


ESCAPE 


TST 


JSR 

002 



BCC 

ERROR 


R5.TXCHAR 


ESCAPE 


TST 


JSR 



BCC 

ERROR 


R5.RCV1ST 
. *8. 


ESCAPE 


TST 



I BR IP NO ERROR 
{REPORT STACKED ERROR 

j SKIP TO END OF TEST 



jLOAD 000CHEADR2), TX HEADR1 



j BR IF NO ERROR 
jREPORT STACKED ERROR 

I SKIP TO END OF TEST 



:LOAD 075CHEADR3), TX HEADR2 



;BR IF NO ERROR 
(REPORT STACKED ERROR 

j SKIP TO END OF TEST 



iLOAD O03CHEADR4), TX HEADR3 



;BR IF NO ERROR 

, REPORT STACKED ERROR 

j SKIP TO END OF TEST 



I LOAD O02CHEADR5) 



j BR IF NO ERROR 

i REPORT STACKED ERROR 

I SKIP TO END OF TEST 



i CI OCK AND RCV 201 

i BR IF NO ERROR 

j REPORT STACKED ERROR 

j SKIP TO tND OF TUT 



TRAP 

TRAP 
.WORD 



TRAP 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



TRAP 

T«AP 
.WORD 



TRAP 



TRAP 
.WORD 



CJERROR 

CSESCAPE 
L 10032 -. 



CSERROR 



TRAP CiESCAPE 
.WORD L 10032 -. 



CSERROR 

CSESCAPE 
L 10032 -. 



CS ERROR 

CSE SCAPE 
L 10032 -. 



C $ ERROR 

CIESCAPE 
L 10032- . 



CS ERROR 

CSt SCAPE 
L 10032-, 
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6325 

6326 

6327 
6328 
6329 

6330 
6331 

6332 



6335 

6334 
6335 
6336 
6337 
6338 

6339 



6340 
6341 
6342 
6343 
6344 
6345 
6346 

6347 



6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 

6358 



6359 
6360 
6361 
6362 
6363 
6364 
6365 

6366 



033032 
033036 
033040 
033042 
033044 
033046 
033046 
033050 
033050 
033052 

033054 
033060 
033062 
033064 
033066 
033066 
033070 
033070 
033072 

033074 
033100 
033102 
033104 
033106 
033110 
033110 
033112 
033112 
033114 

033116 
033122 
033124 
033126 
033132 
033134 
033136 
033140 
033142 
033142 
033144 
033144 
033146 

033150 
033154 
033156 

033160 
033162 
033164 
033164 
033166 
033166 
033170 



004537 010350 

000201 

000000 

000010 

103003 

104460 

104410 
000622 

004537 010136 
000001 
000000 
103003 

104460 

104410 
000602 

004537 010350 

OOOOOO 

000000 

000010 

103003 

104460 

104410 
000560 

004537 010250 

000002 

OOOOOO 

00453 7 010350 

000075 

OOOOOO 

000010 

103003 

104460 

104410 
000526 

004537 010350 

000003 

OOOOOO 

000010 
103003 

104460 

104410 
000504 



JSR 


R5.RXCHAR 


201 









8. 




BCC 


. *8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCHAR 


00?. 









BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5»RXCHAR 


000 









8. 




BCC 


. *8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCTRL 


TEOM 









JSR 


R5.RXCHAR 


75 









8. 




BCC 


.»8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


003 









8. 




BCC 


,♦8. 


ERROR 




ESCAPE 


TST 



jREAD C CHK 20KHEADR1), RCV HEADR2 



i BR IF" NO ERROR 
jREPORT STACKED ERROR 

j SKIP TO END OF TEST 



j LOAD 00KHEADR6) 



j BR V NO ERROR 

j REPORT STACKED ERROR 

jSKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



TRAP 

TRAP 
.WORD 



I READ 6 CHK 000CHEADR2), RCV HEADR3 



j BR IF NO ERROR 
(REPORT STACKFl) ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



(SET TtOM 

l C STARTS CRC 16 CHARACTER) 

j READ 6 CHK 075CHEADR3), RCV HEADR4 



jBR IF NO ERROR 

i REPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



iREAD 6 CHK 003C HEADR4 1 , RCV HEADR5 



jBR IF NO ERROR 
jRFPORT STACKED ERROR 

;SKIP TO END QK TEST 



TRAP 

TRAP 

.WORD 



SEQ 0161 



C* ERROR 

CJESCAPE 
L10032-. 



CS ERROR 

CiFSCAPF 

L10032-. 



CIERROR 

C» ESC APE 
L10032-. 



ClERROR 

CSESCAPE 
110032- , 



C* ERROR 

CJESCAPl 
L1003J-, 
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6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 

6377 



6378 
6379 
6380 
6381 
638? 
6333 
6384 

6385 



6386 
6387 
6388 
6389 
6390 
6391 

6392 



6393 
6394 
6395 
6396 
6397 
6396 
6399 

6400 



6401 
6402 

6403 
6404 
6405 
6406 

6407 



6408 



033172 
033176 
033200 

033202 
033206 
033210 
033212 
033214 
033214 
033216 
033216 
033220 

033222 
033226 
033230 
03323? 
033234 
033236 
033236 
033240 
033240 
033242 

033244 
033250 
033252 
033254 
033256 
033256 
033260 
033260 
033262 

033264 
033270 
033272 
033274 
033276 
033300 
033300 
033302 
033302 
033304 

033306 

03331? 
033314 
033316 
033320 
033320 
033322 
03332? 
033324 



004537 010250 

000000 

000000 

004537 010136 

000000 
000000 
103003 

104460 

104410 
000454 

004537 010350 

000002 

000000 

000010 

103003 

104460 

104410 
0004 32 

004537 010136 
0003 7 7 
000000 
103003 

104460 

104410 
000412 

004537 010350 

100001 

000001 

000010 

103003 

104460 

104410 
000370 

004537 010136 

000376 
000000 
103003 

104460 

104410 

000350 



JSR 


R5.TXCTRL 


000 









JSR 


R5.TXCHAR 


000 









BCC 


.♦8, 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


00? 









r. , 




BCC 


. ♦e. 


ERROR 





ESCAPE TST 



JSR 


R5.TXCHAR 


3 77 









BCC 


, »8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.RXCHAR 


RXERRJ001 


RERCHK 




8. 




BCC 


. »8, 


ERROR 





ESCAPE TST 



tCLEAR TEOM 



JSR 


RS»TXCHAR 


\?b 









BCC 


. »8. 


I RRUR 




ttiCAPfc 


Tt>r 



lLOAD OOO(OATAl) 



l BR IE NO ERROR 

iREPORT STACKED ERROR 

j SKIP TO END Or TEST 



TRAP 

TRAP 
.WORD 



C* ERROR 

CJESCAPE 
L10032-, 



j READ 6 CHK 002CHEADR5) , RCV HEADR6 



; BR IE NO ERROR 

I REPORT STACKED ERROR 

{SKIP TO END OF TEST 



jLOAD 377CDATA?) 



j BR IE NO ERROR 

{REPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



CSERROR 

CJESCAPL 
L10032-. 



TRAP 

TRAP 
.WORD 



Ctf.RROR 

CIESCAPE 

L. 10032- . 



jREAD/CHK 001CHEADR6), "RCV FIRST CRC BITE 



;BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



I LOAD 376CDATA3) 



j BR IF NO tRHOR 
iREPORT STACKED ERROR 

j SKIP TO END OF TEST 



TRAP 

TRAP 
.WORD 



C$ ERROR 

CIESCAPE 
L10O32-. 



TRAP 



Ofc RROR 



SEQ 0162 



TRAP CJL^API; 
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SEQ 0163 



6409 033326 


004537 


010350 


6410 033332 


000043 




6411 033334 


000000 




6412 033336 


000010 




6413 033340 


103003 




6414 033342 






033342 


104460 




6415 033344 






033344 


104410 




033346 


000326 




o416 






6417 033350 


004537 


010136 


6418 033354 


000375 




64 19 033356 


000000 




6420 033360 


103003 




6421 033362 






033362 


104460 




6422 033364 






033364 


104410 




033366 


000306 




6423 






6424 033370 


004537 


010350 


6425 033374 


000035 




6426 033376 


000000 




6427 033400 


000010 




6428 033402 


103003 




6429 033404 






033404 


104460 




6430 033406 






033406 


104410 




033410 


000264 




6431 






6432 






6433 






6434 






6435 033112 


012702 


003012 


6436 033416 


112237 


033454 


6437 033422 


116237 


000003 033434 


6438 






6439 033430 


004537 


010136 


6440 033434 


000000 




6441 033436 


000000 




6442 033440 


103003 




6443 033442 






033442 


104460 




6444 033444 






033444 


104410 




033446 


000226 




6445 






6446 033450 


00453/ 


010350 


6447 033454 


000000 




6448 033456 


000000 




6449 033460 


000010 




6450 033462 


103003 




6451 033464 






033464 


104460 




6452 033466 







JSR 


R5.RXCHAR 


jREAD 6 CHK 1ST CRC BYTE, 


RCV 


SECOND CRC BYTE 


04 3 














8. 












BCC 


. >8, 


jBR IF NO ERROR 








ERROR 




iREPORT STACKED ERROR 




TRAP 


C TERROR 


ESCAPE 


TST 


{SKIP TO hND OF TEST 




TRAP 
.WORD 


CIESCAPt 
L 10032 -. 


JSR 


R5.TXCHAR 


jLOAD 375CDATA4) 








3 75 













BCC 


,♦8, 


{ BR If NO ERROR 








ERROR 




j REPORT STACKED ERROR 




TRAP 


CiERROR 


ESCAPE 


TST 


tSKIP TO END OF TEST 




TRAP 
, WORD 


C IF. SCAPE 
L 10032 -, 


JSR 


R5.RXCHAR 


(READ 6 CHK SECOND CRC ByTEj 


RCV DATA1 




035 













8. 












BCC 


» *8. 


jBR IF NO ERROR 








ERROR 




{REPORT STACKED ERROR 




TRAP 


C TERROR 


ESCAPE 


rsr 


j SKIP TO END OF TEST 









TRAP 
.WORD 



CIESCAPE 



TRANSMIT THE BULK OF DATA OUT Of TABLE "PATK" 



5$: 



10$: 



MOV 


0PATK.R2 


I10VB 


IR2)*,20$ 


MOVB 


3(R2),10I 


JSR 


R5.TXCHAR 


000 









BCC 


, »8. 


ERROR 





ESCAPE TST 



{SET UP TABLE POINTER 

i SET UP EXPECTED RX CHARACTER 

;SET UP TRANSMIT CHARACTER 

jLOAD A CHARACTER 

;** HOLE FOR NEXT TX CHARACTER 

jBR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END OF TEST 



TRAP 

TRAP 
. WORD 



C* ERROR 

i: V. SCAPE 
L 1003/?-* 



20$: 



JSR 


RS.RXCHAR 


000 









8. 




BCC 


. *8. 


ERROR 





jCl.K/MECELVt /CHI CK PREVIOUS CHARACTER 
{♦♦ HOLE FOR EXPECTED CHARACTER 



ESCAPE TST 



;BR IF NO ERROR 
{REPORT STACKED ERROR 

{SKIP TO END Of TEST 



TRAP 



C5ERR0R 



CNOMFAO DMV11 I. INF. UNIT DIAG3 
TEST 9 -~ DDCMP MESSAGE TEST 



1 1 3 

MACRO M1200 22-FEB-84 15j46 PAGE 74-5 



SEQ 0164 



6453 
6454 

6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 

6466 



6467 
6468 
6469 
64 70 
6471 
6472 
64 73 
64 74 
64 75 
64 76 

6477 



6478 
64 79 
6480 
6481 
6482 
6483 
6484 

6485 



6486 
6487 
64 88 
6489 
6490 
6491 
649? 

6493 



033466 
033470 

033472 
033476 

033500 
033504 
033506 
033510 
033514 
033516 
033520 
033522 
033524 
033524 
033526 
033526 
033530 

033532 
035536 
033540 
033542 
033546 
033550 
033552 
033554 
033556 
033556 
033560 
033560 
033562 

033564 
033570 
033572 
033574 
03357b 
033600 
033600 
033602 
033602 
033604 

033606 
033612 
03 5614 
033616 
033620 
033622 
0*3622 
033624 
033624 
033626 



104410 
000204 

022702 
001347 

004537 
000002 

000000 
004537 
000200 
000000 
000010 
103003 

104460 

104410 
000144 

004537 
0C0002 
000000 
00453 7 
000125 
000000 
000010 
103003 

104460 

104410 
000112 

004537 
000252 
000000 
000010 
103003 

104460 

104410 
000070 

00453/ 

100000 
000001 
000010 
103003 

104460 

104410 
000046 



003027 
010250 
010350 



010250 
010350 



010350 



010350 



TRAP 
.WORD 



C* ESCAPE 

L10032-. 



CMP 0PATK*13.,R2 
BNF 5* 



{CHECK FOR 14 TH CHARACTER OF TABLE 
{ BR IF NOT DONF 



JSR 


R5.TXCTRL 


TFOM 









JSR 


R5.RXCHAR 


200 









8. 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 


JSR 


R5.TXCTRL 


TEOM 









JSR 


RS.RXCHAR 


125 









8. 




BCC 


.♦8. 


ERROR 




ESCAPE 


TST 



JSR R5.RXCHAR 



j SET TEOM 



1 READ/CHK 200CDATA13), RCV 125CDATA14) 



l BR IF NO ERROR 
iREPORT STACKED ERROR 

{SKIP TO END OF TEST 



jSET TEOM 



TRAP 

TRAP 
.WORD 



CS ERROR 

C»E SCAPE 
L10032-. 



{READ/CHK 125CDATA14), RCV 252CDATA15) 



{BR IF NO ERROR 
{REPORT STACKED ERROR 



TRAP 



{SKIP TO END OF TEST 

{READ/CHK 252CDATA15), RCV O00CDATA16) 



TRAP 
.WORD 



CJERROR 

C$ ESCAPE 
L10032-. 



6494 

6495 



033630 004537 010350 



252 



8. 






BCC 


. ♦e. 


{BR If NO ERROR 


ERROR 




{REPORT STACKED ERROR 

TRAP Cf ERROR 


ESCAPE 


tst 


{SKIP TO END OF TEST 

TRAP C4ESCAPE 
.WORD 1.10032- . 


JSR 


R5.RXCHAR 


{READ/CHK 000CDATA16), RCV FIRST CRC BYTE 


RXERR'OOO 




RfcRCHK 

8. 

BCC 






, >8. 


jBR IF NO ERROR 


ERROR 




{REPORT STACKED ERROR 

TRAP C $ ERROR 


ESCAPE 


TST 


;SKIP TO END OF TEST 

TRAP CSESCAPl 
.WORD I lOOV- , 


JSR 


R5.RXCHAR 


{READ C CHK 1ST CRC BYTE, RCV SECOND CRC 0> TE 



Jl, 



z 



CNDMEAO 


DMV11 LINE UNIT 


DIAG3 


MACRO M1200 


22 


-FEB -84 


15 i 46 PAGE 


74-6 






TEST 9 - 


- DDCMP 


MESSAGE 


TEST 
















6496 


033634 


000231 








231 










6497 


033636 


000000 



















6498 


033640 


000010 








8. 










6499 


033642 


103003 








BCC 


,♦8. 


j BR IF NO ERROR 






6500 


033644 
033644 


104460 








ERROR 




{REPORT STACKED 


ERROR 

TRAP 


CSERROR 


6501 


033646 

033646 
033650 


104410 
000024 








ESCAPE 


TST 


jSKIP TO END OF 


TEST 

TRAP 
.WORD 


C*ESCAPE 
L10032-, 


6502 






















6503 


033652 


004537 


010350 






JSR 


R5.RXCHAR 


;READ £ CHK 2ND 


CRC BYTE, RCV 1ST SYNCH 




6504 


033656 


000176 








176 










6505 


033660 


000000 



















6506 


033662 


000010 








8. 










6507 


033664 


103003 








BCC 


,♦8. 


t BR IF NO ERROR 






6500 


033666 
033666 


104460 








ERROR 




{REPORT STACKED 


ERROR 

TRAP 


OERROR 


6509 


033670 
033670 
033672 


104410 
000002 








ESCAPE 


TST 


{SKIP TO END OF 


TEST 

TRAP 
.WORD 


C$E SCAPE 
L10032-. 


6510 


033674 






ENOTST 














033674 
















L 10032? 






033674 


104401 














TRAP 


CJETST 



SEQ 0165 
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6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 



K13 
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SEG) 0166 



6526 
6527 



6528 



6529 



6530 



6531 



6532 
6533 



6534 
6535 
6536 
653/ 
65 38 
653^ 
6540 
6t>41 



033676 
033676 
033700 

033700 

033700 
033702 
033704 
033706 
033710 
033710 
033712 
033714 
033716 
033720 
033720 
033722 
033724 
033726 
033730 
033732 
033732 
033734 
033736 
033740 
033/4^ 
033744 
033744 
033746 
033750 
033/52 
033754 

033756 

033756 



033756 

034004 
034035 
034066 
034151 
034206 



000027 



000031 
033756 
160020 
177776 

001031 
034004 
000000 
000674 

002032 
034035 
007000 
000004 
000007 

005032 
034066 
000007 
000000 
000002 

006032 
034151 
000007 
000000 
000004 



104 
104 
104 
102 
124 
050 



.SBTTL HARDWARE PARAMETER CODING SECTION 



j //////////////////////////////////////////////////////////////////////////// 

{/ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
;/ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES, THE 
}/ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
}/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

/ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

/ WITH THE OPERATOR. 

/////////////////////////////////////////////////////////////////////////// 



105 
105 
105 
11/ 
125 
060 



126 
126 
126 
101 
122 
75 



.NLIST 
ADORES: 
VtCTOR; 
PRIRH : 
PDTi ,ri : 
TCQN,M; 



BGNHRD 



GPRMA ADDRES ,0,0, 160020 , 177776 , YES 



GPRMA VECTOR, 2, 0,0, 674. YES 



GPRMD PRIRTY .4 ,0.7000,4,7, YES 



,WORD L10033~L$HARD/2 



GPRMD BDT> .M, 12, 0,7 ,0,2, YES 



GPRMD 



ICON. M, 14, 0,7, 0,4, YES 



ENDHRO 



BEX 
.ASCI/. 

.ASCIZ 

.asciz 

..ASCI/ 
.ASCII 
.ASCII 



I SHARD: : 




.WORD 
.WORD 
.WORD 
.WORD 


T$COOE 

ADDRES 

TSLOLIM 

TJHILIM 


.WORD 
.WORD 
.WORD 
.WORD 


T$CODE 

VECTOR 

TJLOLIM 

TSHILIM 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


T$CCDE 

PRIRTY 
7000 
TJLOLIM 
TSHlLlM 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TSCODE 

BDTY.M 

7 

TJLOLIM 

T$HILIM 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TtCODE 

TCON.M 

7 

TiLOLTM 

T$HILIM 


.EVEN 
L 10033 x 





/OFVICE CSR ADDRESS : 
/DEVICE VECTOR ADDRESS 
/DEVICE PRIORITY LEVEL 
/BOARD nPE C0-M8064, 
/TURNAROUND CONNECTOR 



/ 

: / 

: / 
1-M8053 

t>pe -/■ 



V.35, 2«M8053 
15>^12^ 



I.'U 
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SEQ 0167 
HARDWARE PARAMETER CODING SECTION 

6542 034274 040 063 075 .A5CIZ / 3-V.35 CABLE, 4 -NONE) : / 

6543 .LIST BEX 

6544 .EVEN 



M 'I ~7 
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SOFTWARE PARAMETER CODING SECTION 



SEQ 0168 



6546 

654 V 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 



655*> 
6560 



SBTTL SOFTWARE PARAMETER CODING SECTION 



/////////////////////////////////////////////////////////////////////// 

/ THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 

/ 1HAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 

/ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

/ MACROS ALLOW THE SUPERVTSOR TO ESTABLISH COMMUNICATIONS 

/ WITH THE OPFRATOR. 

///////////////////////////////////////////////////////////////////// 
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****** PATCH AREA FOR DEBUG ****** 

.SBTTL ****** PATCH AREA FOR DEBUG ****** 

PATCH: 



SEQ 0169 



656? 
6563 
6564 034330 

6566 034530 

6567 034532 

6568 034534 
6569 

65/0 

6571 

6572 

6573 034536 

6574 

6575 

6576 034536 



6577 
6578 



034536 
034540 
034542 



054530 
000240 
000240 
000240 



000000 
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.-.+200 

NOP 
NOP 
NOP 
*********************************** 

.SBTTL "ENDMOD' 1 STATEMENT 
ENDMOD 
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L.JLAST 
.END 



"LASTAD" STATEMENT 6 END OF PROGRAM 
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G 
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EM36 


014551 
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BSR15 


002234 
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Fl GCB1- 
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Al 
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BSR16 
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TM69 
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BADDAT 
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BSR17 


002240 
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000040 
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BOAT A 
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BSR2 
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EM71 
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EM72 


014755 
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034066 




BSR4 
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EM 73 


014777 


FIGT? 


■ 000040 
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000001 


G 


BSK5 


002214 
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EM 74 


015014 


FMT10 


012560 
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Li 


BSR6 


002216 


CtMSG ■ 
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EM/5 
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FMT10A 


0126 54 
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G 


BSR7 


002220 


CIOPEN- 
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EM 76 


015051 


FMTU 


012655 
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Li 


CARTER- 
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CIPNTB- 


• 000014 


EM 7 7 


015071 
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0126 74 
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G 


CAlCTL- 
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C$PNTF « 
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EM78 


015105 


F M Tl 3 


012703 
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G 
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CIPNTX- 
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G 
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G 
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G 


CHPTtP 
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015262 
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G 


CKLPBK 
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015311 
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G 


CKRACT 
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015526 
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G 
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G 
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G 


CKR5A 


006314 
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G 
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G 
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G 
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013535 
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G 
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G 
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Ff^OIT 
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G 
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G 
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G 
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G 
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EF .PUR 


- 000034 G 
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C»CL0S« 
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01224/ 
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00244? 
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FRR11I 


02203? 
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002444 
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00OO44 
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0155 56 
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002446 
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00O051 


EM101 


015556 


FRR12I 


02? 364 


F MF 40 


014150 
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OO2450 
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EM14 
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SETV1A 
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SRMODE 
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5TEPLU 

STRIP 

STRIPS 

STRTML 

STURtli 
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SVC INS 
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SVC TAG 
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SWPBOT 
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TBMT 
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TDATA 
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TM 
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